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OTROS PR06RAMAS EN STOCK 


envienos A MICROBYTE f 

P.° Castellana, 179.1- 28046 Madrid 


Nombre 


Apel‘»dos 


Direction 


Poblacion 


Telefono 


ENVIOS GRATIS 


PRECIQ TOTAL PESETAS 


Incluyotakmnominativo 

Contra-Reembolso 


Pedidos por telefono 91 * 442 54 33 / 44 


UBVOS PROGRAM A 


Ali jctivo progromo que nos trosloao Qi ma- 
nejo de to mdquino-llipper del mejor casino 
de Los Vegas Positiilidad de creation dei 
tablero, puntuaciones, etc. P.V.P.: CASSET 
Ti 2 200 at*. D'SCO 2.900 uts. 


Te encuentras atra 1 en !o$ profundida- 
des de una caverna, llena dr obsMculos 
adversidades, etc, jSerds ca^az de soli' 
con vida? P.V.P.: CASSETTE 1 .900 p ts. PI! 
cr 2.600 pt 


">ebes pilotar con acierto la nave que a In 
argo de su viaje galactico sutrirO encut 
> :s con mntcoritos, rsiduos planetaria 
Ac. Gran movilldad y excelentes efectc 
p v P • CASSETTE 1 900 pts DISCO 2.R00 pti 


El comandante de nave AMSTRAD-1 se en 
Guenlra atrapado en las profundldades 
ura central nuclear y debe salir con vida. Ex 
celenles grdticos y sonido. P.V.P.; CASSET 
re 2 200 pt DISCO 2.SO0 P3 


•Aiot uru.tr 


MINI OFFICE P.V.P. CASS. 3.200 p«s. 

P.V.P. DIS. 3.900 pts. 
WORLD CUP FOOTBALL P.V.P. CASS. 1.800 pts. 
BATLE FOR MIDWAY P.V.P. CASS. 1.800 pts. 
FIGHTER PILOT P.V.P. CASS. 2.200 pts. 

SURVIVOR P.V.P. CASS. 1.800 pts. 

MOON BUGGY P.V.P. CASS. 1.800 pts. 
TECHNICIAN TED P.V.P. CASS. 1.800 pts. 

FRUITY FRANK P.V.P. CASS. 1.800 pts. 
DATABASE P.V.P. CASS. 2. 1 00 pts. 

LOGO TURTLE GRAPHICS P.V.P. CASS. 2.400 pts. 
TASCOPY Y TASPRINT P.V.P. CASS. 2.600 pts. 
FONT EPITOR P.V.P CASS 1.900 pts. 


.. 


COMPUTER 

GRAPHICS 


sen* « 


Solisttcodo programa de dibujo que permits Irotar lo pantolla del AMS¬ 
TRAD como un sencillo tablero de dibujo, sus resultados tab expetacul 
re* P.V.P.- CASSETTE 4.500 pw DISCO 5.200 pts 
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Impresoras 

Si el mercado de ordenadores es una selva os- 
cura para el mas enterado, el de las impresoras 
es ya el caos mas absoluto. Ponemos orden en este 
maremagnum y te damos la posibilidad de que 
elijascon conocimiento de causa, la impresora 
que necesitas. 



Para... PCW 

Una de las posibilidades mas potentes del Ma¬ 
llard Basic, sin duda, es la indexaciori de ficheras. 
Jetsam, constiiuye hoy por hoy, una de las for¬ 
mas mas logicas, eficaces y rapidas de indexar un 
fichero, aprendelas con nosotros y utiliza toda la 
versatilidad de tu PCW, 



Serie oro 

Hay gente, mucha, que no acepta la derrota 
de su inteligencia por un ordenador. Si quieres pa- 
sar a ser uno de ellos, juega e intenia veneer a 
nuestro geniecillo. 




Convertir un ordenador en algo inteligente, era 
haste ahora muy diffcil; si ademas este ordena¬ 
dor era uno modesto, la empresa era casi impo- 
sible. AMSTRAD Especial, continuando con el 
curso del semancrio, os ofrece gratis el lenguaje 
A por excelencia: el LISP. 

Utilizandolo, cualquiera que tenga un Ams- 
trad y curiosidad por el asunto va a poder ho- 
cer vrazonan a su ordenador. 



Soft 

integrado 


Tecnicas de programacion verdaderamente dt 
puradas y estudiadas han conseguido el milagro 
tres programas en uno. Fidicom, un paquete 
gestion con verdadera vocacion profesional. 



Paginacion 
de memoria 

Elige el numero de programas Basic que quie 
res y disponte a ejecutcrlos, casi, casi. a I mismo 
tiempo. Nuevos comandos RSX que consiguen 
convertir a tu Amstrad en dos, o en tres, oen. , 






En broma y en serio, en Castellano y en ingles, 
retamos a todo el poderio de tu ingenio para re¬ 
solver nuestros xigramas. ?Te atreves...? 
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EBasic fue el primer compilador para Basic. En reaiidad, ei 
que hoy se nos ofrece, posee una estructura muy parecida al 
que se puede considerar fue su precursor. 



poco tiempo, Mr. 
Gordon Eubanks fundo su empresa y prosiguio 
su labor, ampliando el lenguaje por el idea- 
do a lo que seria iiamado CBasic. Habia na- 
cido un Basic insospechado... 

Por aquel entonces, otra companfa ameri- 
cana, desarrollo otro dialecfo Basic: El MBa- 
sic o Basic Microsoft. Hasta 1980 fue un len¬ 
guaje interpretado, fecha en la que aparecio 
el primer compilador. 

Desde que fue ideado en los anos 60, el Ba¬ 
sic fue enriqueciendose, adquiriendo nuevos 
conceptos provenientes de otros lenguajes de 
alto nivel, y subsanando deficiencias. CBasic 
no se quedo atras y el resultado es un lenguaje 
muy versatil y potente. El que sea compilaao 
dice mucho en favor de su rapidez y puede 
ser utilizado por aquellos a los que el Basic se 
les ha quedado pequerio. 

Mas alia de la incorporacion de nuevcs co- 
mandos y funciones, que seran comentados 
mas tarde, se entra en una nueva filosofia de 
programacion. CBasic es para programar en 
modulos con estructuras, tal como hacemos en 
ciertos lenquajes de alto nivel como C, PAS¬ 
CAL, etc. 

Esto lo conseguimos en CBasic con las fun¬ 
ciones. 


Funciones... 
y eso, sque es? 

Ante todo una funcion en CBasic, no es lo 
que estamos acostumbrados a ver, es algo mu¬ 
cho mas potente; las funciones en CBasic, son 
como las de C, o procedures de Pascal. 


Al igual que Basic, disponemos de una se- 
rie de funciones definidas (sin, sqr, etc.), y po- 
demos crear nuevas funciones. La diferencia 
estriba en que nuestras funciones pueden con- 
tener fragmentos de programa. Algo pareci- 
do ocurre en la declaracion de procedimien- 
tos de otros lenguajes. Esto permite tratar al- 
goritmos complejos basados en tecnicas de re- 
cursividaa e iteration. 

Podemos usar cualquier palabra reservada 
de CBasic en nuestras funciones, pero no las 
podemos tratar como si fuesen vulgares subru- 
tinas, muy importante: a las funciones no las 
podemos invocar con GOTO o GOSUB, de- 
biendose utilizar el primero unicamente en ca- 
sos desesperados. La palabra reservada que 
se encarga de invocar a una funcion ,s CALL, 
pudiendose invocar en expresiones con solo 
su nombre. Para utilizar GOSUB debemos po- 
ner una etiqueta y el correspondiente RETURN 
en el cuerpo de la funcion, pero veremos que 
no nos sera necesario utilizar subrutinas. 

Un nombre de funcion es un ideniificador 
valido de CBasic. Solamente los seis prime- 
ros caracteres son significativos, como ocurre 
con el resto de los nombres de variables y eti- 
quetas. 

El tipo de funcion puede ser determinado 
con los identificadores adecuados, estos son: 
$ para cadenas de caracteres 
% para enteros 

el caracter final de una funcion o variable real 
no puede conduir con ninguno de los anterio- 
res caracteres. 

Podemos definir funciones como en Basic y 
tratarlas de igual manera. 

Las funciones se pueden declarar como pu- 
blicas o externas; las publicas son ejecutables 
por otros modulos de programa, unicamente 
nuestra declaracion debera tener como ulti¬ 
ma palabra PUBLIC, para referenciar a estas 
funciones en un modulo de programa distin- 
to, debemos utilizar otra funcion como puen- 
te, esta estara declarada como EXTERNAL, y 
contendra unicamente datos sobre la otra fun- 
cion, no puede contener comandos ejecuta¬ 
bles. 


La lista completa de palabras reservadas de | 
CBasic la tenemos en la figure 1. Haremos una 
description de aquellas que supongan una in- 
novacion o, aun utilizando el mismo nombre, 
signifiquen acciones distintas que en el Basic 
Locomotive. Los graficos en CBasic son muy 
potentes, por lo que seran tratados posterior- 
mente. 

Dos palabras reservadas por el sistema son 
ATTACH y DETACH y se refieren al control de 
la impresora por parte de sistemas multiusua- 
rio. ERRX es una funcion destinaaa al trata- 
miento de errores en MP/M II (multiusuario). 

Veamos esas palabras nuevas: 

DEF: Se utilize para definir funciones en ios 
sentidosdescritos anteriormente. FEND iden 
tificara el final de dicha declaracion. CALL lla- 
mard a la funcion siempre que no se la invo- 
que en expresiones, en cuyo caso bastard con 
mencionar el identificador de la misma. 

CHAIN: Susfituye un programa por otro y 
comienza su ejecucion. Sirve para crear pro- 
gramas transitorios. Todas las variables que 
se quieren traspasar al programa Iiamado, de- 
beran ser declaradas en una clausula CON- 
MON. 

COMAND$: Se utilize para fransmitir pa- 
rametros a un programa. 

CONCHAR%: Esta funcion espera un carac¬ 
ter del teclado y retorna su valor ASCII deci¬ 
mal, imprime el caracter. 

IN KEY: Espera un caracter del teclado y re¬ 
torna su valor ASCII decimal, no imprime el 
caracter. 

CONSOLE/LPRINTER: Dirigen la salida por 
pantalla o impresora respectivamente. 

CONSTAT%: Retorna un valor booleano de- 
pendiendo del estado del teclado. 

CREATE: Crea un fichero en disco, sin infor- 
macion en el. Permite determinar la longitud 
de registros, el numero de buffers, el modo de 
fichero, siendo estos: 

LOCKED: Ficheros a los que solo pue¬ 
de acceder el programa que los crea. 
UNLOCKED: Ficheros utilizabies por 
cualquier programa. 

READONLY: Ficheros de solo lectura. 

DELETE: Borra un fichero del disco dando- 
le el numero del mismo. 

FLOAT: Convierte un numero en un real de 
punto flotante. 

GET: Lee un byte de datos de un fichero es- 
pecificado. 
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IF END#: Transfiere el control del progra- 
ma a una etiqueta determinada, cuando ocu- 
rre algun suceso de excepcion en el acceso a 
un disco. 

INITIALIZE: Permite combior los diskettes en 
iiempo durante la ejecucion del programa, sin 
tener que inicializar el sistema. 

LOCK: Previene al programa para modifi- 
car los dates en un registro. 

MATCH: Busca subcadenas en cadenas re- 
fornando su posicion. 

OPEN: Abre un fichero ya creado. Permite 
determinar la longitud de los registros, el nu- 
mero de buffers, y el mode. 

POS: Retorna la proximo colurnna en la que 
se va a imprimir. 

PUT: Escribe un byte de datos en un fichero 
especificado. 

RENAME: Cambia en el directorio del dis¬ 
co un nombre de fichero. 

SADD: Retorna la direccion de comienzo de 
la variable de cadena especificada. 

SHIFT: Retorna un entero que es aritmetica 
mente desplazado un numero de posiciones a 
la derecha. 

SIZE: Retorna el numero de bloques de un 
kilobyte, ocupados por el fichero especifica¬ 
do. 

UCASE$: Convierte minusculas a mayuscu 
las. 

UNLOCK: Permite acceder y modificar los 
registros de un fichero. 

VARPTR: Retorna la direccion de una varia 
ble. 

Aqui finalizan las palabras reservadas, que 
nos pueden ser desconocidas. El resto no se 
comentan por no diferenciarse en nada de sus 
homologas en LOCOMOTIVE Basic. 

Conviene hacer algunas adaraciones, sobre 
variables. Estas pueden ser declaradas en un 
tipo determinado, mediante los comandos: 

INTEGER. Variables enteras. 

REAL: Variables reales. 

STRING: Variables de cadena. 

COMMON: Variables de cualquier tipo que 
vayan a ser usadas por cualquier programa, 
llamado por CHAIN. 

La declaracion de variables nos evita tener 
que poner los identificadores de tipo. 

En la declaracion de variables debemos de¬ 
jar un espacio en bianco entre el separador 
y la variable que io precede. 

Las etiquetas son tratadas como cadenas de 
caracteres. 

Todos los errores en tiempo de ejecucion, 
no iratados por ei programa, son fatales y ha- 
cen que esta concluya. 

Las sentencias: DIM, DATA, IF, END y las 
declaraciones de variables, no podran com- 
partir la linea con ninguna otra palabra reser- 
vada. 

Ei valor booleano verdadero es igual a —1. 

FOR convierte todas las expresiones nume- 
ricas, que se halian en el bucle, al tipo de va¬ 
riable que utiliza (real o entera). 

Los simbolos para los formatos de PRINT 


JERARQUIA DE OPERADORES 

1 

0 

Parentesis 

2 


Potenciacion 

3 

#/ 

Multiplicacion 
y division 

4 

+ - 

Suma y resta 

5 

A 

+ 

A 

II 

Operadores 


+ =, < +,= 

de relacion 

6 


NOT 

7 


AND 

8 


OR 

9 


XOR 


USING son los mismos que los existentes en 

LOCOMOTIVE Basic. 

Respecto a las funciones conviene resaltar 
ciertos aspectos: No pueden esfar nidadas. 
Cualquier funcion puede llamar a otra. El co- 
mando COMMON no puede aparecer en una 
definicion. 

No puede haber GOTO's que referencien 
lineas fuera de la funcion. 

Si induimos sentencias DIM en una funcion, 
cada vez que esta se ejecute, colocara una 
nueva matriz, que susiituird a la anterior per- 
diendo los datos almacenados en ella. 


Partes y 
funcionamiento 

El compilador CB80 consta de tres partes 
principales: 

1. El compilador en si, 

2. El linker y 

3. La libreria. 

Vamos a hacer aqui una descripcion dc las 
partes, asi como alguna particularidact del fun 
cionamiento. 


El compilador 

Es el encargado de traducir el programa 
«fuente» escrito en CBasic a un programa en 
maquina relocalizable. Algunas instrucciones 
son llevadas a un codigo intermedio para ser 
traducidas totalmente durante el proceso de 
linkado. 

Para que esto sea posible, el compilador 
crea tres ficheros intermedios llamados 
PA.TMP, CODE.TMP y DATA.TMP. Los tres 
son borrados automdticamente por el compi¬ 
lador cuando termina su comefido. 

Por ultimo, se grabara en el disco un pseudo- 
programa en codigo maquina con la extension 
.REL. Este archivo es relocalizable y es el que 
precisamos para su posterior linkado. 

En esta fase se pueden presentar tres tipos 
distintos de errores, que deberan ser correyi- 
dos antes de proseguir: 

1. Error en los espacios de memoria o de 
ficheros: Ocurre cuando sobrepasamos la me¬ 


moria disponible, el disco esta lleno, coman¬ 
dos de linea incorrectos, error de lecture del 
disco, intentamos leer un fichero no abierto 
previamente,... etc. 

2. Errores de Compilacion: Corresponden 
a mal uso de un comando, caracteres no vali- 
dos, declaraciones incorrectas u omision de de- 
lirnitadores. Por cada error detectado se es¬ 
cribe una () indicando el lugar del texto fuen- 
te, y un codigo variable entre 1 y 117 que in¬ 
forma de la naturaleza del mismo. Cabe de- 
cir,. que un solo error puede generar varios co- 
digos, incluso en otras zonas del programa. 

3. Errores fatales: Teoricamente no deben 
producirse y a nosotros no nos ha sucedido. 
Digital Research esta interesada en el progra¬ 
ma que motiva un error de este tipo, asi co¬ 
mo del codigo de error que genera. 


Opciones 

de comando directo 

Deben ser insertadas en una linea del pro¬ 
grama fuente sin que haya en ella comandos 
o funciones CBasic. No pueden ser efique- 
tadas y no dan lugar a ningun codigo ejecu- 
table. Es una manera de seleccioncr, mediante 
programa, opciones del compilaaor. Son las 
siguientes: 

%LIST, %NOLIST: Controlan el que se pro- 
duzca o no el listado del codigo fuente durante 
la fase de compilacion. 

%EJECT: Hace que el listado por impreso- 
ra continue al principio de una nueva pagina. 

%PAGE: En la impresora, selecciona la lon¬ 
gitud de pagina. 

%INCLUDE: Incluye el codigo fuente alma- 
cenado en otro archivo durante la compila 
'ion de un programa. 

%DEBUG: Controla mediante tres indicado- 
res la aparicion o no del codigo objeto mez- 
clado con el fuente (I), genera o no el codigo 
del numero de linea (N) y coloca o no ei nu¬ 
mero de linea en el fichero del codigo fuente 

(Vl- 

Se dispone, ademas, de otros 12 conmuta 
dores (banderasj, que permifen seleccionar 
otras tantas modificaciones en el control de pe- 
rifericos y sistema operativo. 

Los programas que uiilicen graficos debe¬ 
ran incluii los siguientes ficheros: 

GRAFCOM.BAS 

CIRCOM.BAS 

El ultimo fichero no es necesario si no se in- 
cluyen funciones de circulo. 


El linker 

La mision del compilador era traducir un 
programa fuente en un fichero en codigo ma¬ 
quina relocalizable. Algunas instrucciones que- 
daban en un codigo intermedio que sera to- 
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de CBasic, solamente si nuestros programas 
usan graficos. 

La lista de palabras clave es la siguiente: 


h 


talmente traducido mediante liamadas a la li- 

breria. 

La funcion del linker o «enlazador» es 
precisamente la de encadenar entre si los dis- 
tinfos modulos de programa, Asimismo se en 
cargara de llamar a la libreria para anadir los 
modulos designados por el «<odigo inter- 
medio» que no traducia completamente el 
compilador. Por ultimo, creard las rulinas ne- 
cesarias para el control y ejecucion del pro¬ 
grama. Al final dispondremos de un fichero 
ejecutable (bajo cp/m) con la extension .COM. 

Al igual que el compilador, informa en he¬ 
xadecimal del tamano, comienzo y final del 
programa objeto, el area de dates y del area 
de variables comunes. 


Opciones del linker 


Mediante cinco conmutadores podemos 
efectuar alteraciones en los ficheros grabados 
o dirigir la salida por impresora. 

La mas interesante de todas es ia [S] que, 
una vez activada permite utilizar la fecnica de 
recubrimiento (overlay). Consiste en una zo 
na fija de memoria donde estan almacenadas 
distintas rutinas en mementos distintos. El apro 
vechar esta tecnica supone aceptar restriccio- 
nes tales como que el tamano de todas las ru¬ 
tinas sea el mismo, que las distintas rutinas no 
llnmen a funciones de libreria distintas,... etc. 
Su uso requiere cuidado y puede ser util cuan- 
do la longitud del programa exija «rentabili- 
zar» memoria. 


La libreria 

Consta de una serie de rutinas contenidas 
en un fichero indexado. El linker mezclaba es- 
tas rutinas con la secuencia generada por el 
compilador. Cabe destacar la posibilidad de 
crear una libreria indexada definida por el 
usuario y concatenar ficheros de este tipo. 

Graficos 


Los graficos en CBasic son una herramienta 
muy pofente, nos permiten hacer cualquier co- 
sa que se nos ocurra. 

Las funciones y comandos de graficos se di- 
viden en cinco grupos dependiendo de la fun¬ 
cion que realicen. Los comandos y funciones 
de graficos se consideran palabras reservadas 

6 M. AMSTRAD ESPECIAL 


GRUPO 

PALABRAS CLAVE 

SALIDA 

GRAPHIC PRINT 

MAT FILL 

MAT MARKER 

MAT PLOT 

PLOT 

FORMATEO 

CHARACTER HEIGHT 
(SET/ASK) 

COLOR (SET/ASK) 

COLOR COUNT 
(SET/ASK) 

JUSTIFY (SET/ASK) 

LINE STYLE (SET/ASK) 
MARKER HEIGHT 
(SET/ASK) 

MARKER TYPE (SET) 

STYLE COUNT (ASK) 

TEXT ANGLE (SET/ASK) 

AREA DE 
PANTALLA 

BOUNDS (SET/ASK) 

DEVICE (ASK) 

VIEWPORT (SET/ASK) 
WINDOW (SET/ASK) 

ENTRADA 

GRAPHIC INPUT 

CONTROL 

BEAM (SET/ASK) 

CLEAR' 

CLIP (SET/ASK) 

GRAPHIC CLOSE 

GRAPHIC OPEN 

POSITION (SET/ASK) 


Para trabajar con graficos en CBasic hay 
que tener muy claros los siguientes conceptos: 

COORDENADAS: El dispositivo de la pan- 
talla de graficos, esta definido por los ejes de 
coordenadas X e Y. Ambas comienzan en la 
esquina inferior izquierda y originalmente su 
rango va de 0.0 a 1.0. Esta disposicion pue¬ 
de parecer extraha, pero podemos variar las 
escalas a nuestro gusto como veremos mas 
adelante. 

coordenadas iniciales 

0 . 0 , 1.0 1 . 1 , 1.1 


0 . 0 , 0.0 


1 . 0 , 0.0 


LIMITES (bounds): Son las dimensiones fisi- 
cas en pixels, puigadas, centimetros, o cual¬ 
quier otro tipo de medida. Normalmente los 
dos ejes no suelen ser iguales. 

Inicialmente la extension de la pantalla es 
del 100% de la misma pudiendo ser reducido 
a nuestro gusto. 

VIEWPORT: Es el area de pantalla en la cual 
se imprimen los graficos. Este comando nos 
permite reducciones de dicho area a nuestro 
gusto. 

WINDOW: Esta palabra reservada no tie- 
ne nada que ver con la de LOCOMOTIVE Ba 
sic. En CBasic situa la escala de los ejes de 
coordenadas con los que se desea trabajar. 


BEAM: Activa o desactiva el modo dibujar. 
Equivale a PEN ON/OFF del plotter. 

SET BEAM: Determina el estado (ON/OFF). 

ASK BEAM: Devuelve en una variable de ca- 
dena el estado de BEAM. 

BOUND: Determina las dimensiones fisicas 
de la pantalla. 

SET BOUND < alto + < ancho + : Deter¬ 
mina las dimensiones de la pantalla. 

CHARACTER HEIGHT: Define la alfura de 
los caracteres relativa a la longitud del eje Y. 

SET CHARACTER HEIGHT: Determina la al- 
tura dependiento del numero que vaya a con- 
tinuacion, 

ASK CHARACTER HEIGHT: Retorna en una 
variable el valor vigente en ese momento. 

CLEAR: Equivale a CLS. 

CLIP: Activa o desactiva el control de los 
margenes, nos permite dibujar figures que ex- 
cedan los limites de la pantalla. 

SET CLIP: ON activa, OFF desactiva. 

ASK CLIP: Retorna en una variable el esta¬ 
do de clip en la forma antes expresaaa, 

COLOR: Asigna un color para texto o gra¬ 
ficos. 

SET COLOR: Asigna un color determinado 
por un entero. 

ASK COLOR: Retorna en una variable nu- 
merica el color actual. 

DEVICE: Devuelve los limites de la pantalla 
en dos variables. 

ASK DEVICE <varalto+ < var ancho + 

GRAPHIC INPUT: Permite posicionar el cur¬ 
sor con las teclas correspondientes y cuando 
se pulsa una que no sea de cursor, devuelve 
la posicion del cursor en dos variables, en el 
orden X e Y, y el caracter generado por la te- 
cla pulsada, es devuelto en una variable de 
cadena. 

GRAPHIC OPEN: Inicializa el sistema de 
graficos con posibilidad de determinar el dis¬ 
positivo de salida. 

(Consultar la guia de GSX para mayor in¬ 
formation.) 

GRAPHIC PRINT AT (X,Y): Situa en las coor¬ 
denadas indicadas una consfante o variable 
de cadena. 

LINE STYLE: Selecciona el tipo de linea pa¬ 
ra dibujar. 

SET LINE STYLE: Selecciona el tipo de linea 
dependiendo de los siguientes valores: 

1. continua 

2. rayada 

3. punteada 

4. punto-raya. 

ASK LINE STYLE: Devuelve en una variable 
entera el tipo de linea existente en ese momen¬ 
to. 

MARKER HEIGHT: Determina la altura de 
los marcadores con respecto al eje Y. 

SET MARKER HEIGHT: Determina la altura 
dependiendo de una expresion numerica. 

ASK MARKER HEIGHT: Devuelve en una va¬ 
riable entera el valor actual. 

SET MARKER TIPE: Selecciona el tipo de 
marcador a utilizar dependiendo de la siguien¬ 
te lista: 





































2 + 

3 ’ 

4 0 

5 x 

MAT FILL: Dibuja un poligono relleno de- 
pendiendo de los valores actuales de las ma¬ 
trices de coordenadas X e Y. 

MAT MARKER: Marca ios puntos senaiados 
por los valores actuales de las matrices de 
coordenadas, utilizando el tipo de marcador 
en curso. 

MAT PLOT: line los puntos referenciados 
por la matriz de coordenadas. 

PLOT: Conecta con lineas una serie de pa¬ 
res de coordenadas dado. 

POSITION: Selecciona la posicion del cur¬ 
sor. 

SET POSITION: Selecciona la posicion del 
cursor por medio de dos enteros dados. 

ASK POSITION: Devuelve la posicion del 
cursor en dos variables. 

ASK STYLE COUNT: Asigna a una variable 
el numero del tipo de linea actual. 

TEXT ANGLE: Determine el angulo, con res- 
pecto al eje de las X, en el que se va a inser- 
tar texto. 

SET TEXT ANGLE: Selecciona el dngulo, ex- 
presado en radianes. 

ASK TEXT ANGLE: Retorna el valor del dn¬ 
gulo en una variable real. 

VIEWPORT: Dispone los valores del area de 
pantalla en e! cual se van a imprimir graficos. 

SET VIEWPORT: Selecciona las dimensiones 
de la pantalla, ddndole, en este orden, la po- 
sicion izauierda, derecha, abaio y arriba. 

ASK VIEWPORT: Devuelve en cuatro varia¬ 
bles las dimensiones actuales de la pantalla. 

WINDOW: Determine la escala de los ejes 
X e Y. 

SET WINDOW: Determine la escala dan- 
dole, en este orden, limite izquierdo, Itmite de- 
recho, limite inferior, limite superior. 

ASK WINDOW: Devuelve en variables, en el 
orden indicaao, la escala actual. 

Los graficos en CBasic son rapidos y bastan- 
tes buenos, el disco contiene dos programas 
de prueba DEMOGRAF.BAS y TSTCIR BAS, es- 
tos los podemos compiler normalmente. 

Pero antes de ejecutar el programa .COM, 
deberemos ejecutar GENGRAF, suministrado 
con CP/M plus, para mezclar con el progra¬ 
ma un caraador en tiempo de ejecucion de 
GSX,SYS. El sisfema es el siguienre: GENGRAF 
PROG. 

GENGRAF necesita un fichero .COM para 
operar. 


Conclusiones 


Un lenguaje como el aqui descrito, con ca- 
pacidad de programacion modular y estruc- 
turada es el ideal para pasar de los conoci- 
mientos actuales de Basic a una nueva dimen¬ 
sion del mismo, que nos permitira el acceso a 


CBASlCi 


otros lenguajes de alto nivel. Por si £ uera po- 
co, su capacidad de manejo numerico supera 
incluso el de otros compiladores cuya especia- 
lizacion estd mas comprometida. 

Tal es el caso de algunos disponibles para 
Amstrad coma el Pascal, Fortran y el pro- 
pio Locomotive. A efectos de dar cifras, ahi 
van: 

Desde 10 T—64 hasta 9.9999999999999 # 
10 ?62. Realmente notable si tenemos en cuen- 
ta que la mantisa tiene 14 digitos significati- 
vos. 

CBasic es un lenguaje potente y rapido. 

Para demostrarlo hemos hecho algunas 
pruebas: 

' BUCLE VACIO: desde 1 a 100.000 no men¬ 
surable. Desde luego menos de 1 segundo... 

CALCULO E IMPRESION DE LOS 50 PRI- 
MEROS NUMEROS NATURALES: 25 sg. 

BUCLE CON REALIZACION DE 300 SU- 
MAS E IMPRESION: 18 sg. 

TIEMPO DE COM PI LAC ION (CB30): 38 sg. 

TIEMPO DE ENLAZADO (LK80): 31 sg. 

CLASIF1CACION DE BURBUJA 50 NUME¬ 
ROS: en imprimir matriz sin dasificar, ordenar 
e imprimir matriz clasificada: 4 sg. 

TIEMPO DE COMPILACION (CB80): 23 sg. 

TIEMPO DE ENLAZADO (L 0 K 88 O): 24 sg. 

Los listados de los programas se incluyen a 
continuation: 


REM CLASIFICACION POR BURBUJA 
REM POR DANIEL PALOMO Y MARTIN 
CARREIRA 
DIM A(10) 

PRINT CHR$(12) 

RANDOMIZE 
FOR B%=1 TO 10 
A(B%) = INT (RND#100) 

NEXT B% 

DEFIMPRIME 
DEF IMPRIME 
DEF IMPRIME 
DEF IMPRIME 
FEND 

DEFBURBUJA 

PRINT "CLASIFICANDO" 
FOR D%=1 TO 9 
FOR C% = 1 TO 9 
IF A (C %) + A(C% + 1) 
THEN 1 =A(C%) : E 
A(C%) = A(C°/o + l): E 
A(C°/o + 1)=T 
NEXT C% 

NEXT D% 

FEND 

CALL IMPRIME 

CALL BURBUJA 

PRINT "LISTA ORDENADA" 

CALL IMPRIME 
END 




REM BUCLES 
%DEBUG VI 
DEF BUCLE.VACIO 
INTEGER I, N 
PRINT "BUCLE VACIO" 

I = INKEY 

FOR N = 1 TO 100000 
NEXT N 
I = INKEY 
FEND 

DEF BU.COS 

PRINT "BUCLE COSENO" 

I = INKEY 

FOR N = 1 TO 100 
PRINT COS(N); " 

NEXT N 
I = INKEY 
FEND 

DEF SUMA 

INTEGER I, N, AL, M, SUM, SUM1 

PRINT "SUMA " 

l=INKEY 

RANDOMIZE 

FOR N = 1 TO 99 

FOR M = 1 TO 6 

AL = INT (RND#1000) 

SUM = SUM+AL 
NEXT M 

SUMUSUM1+SUM 
PRINT SUM,SUM1 
NEXT N 
I = INKEY 
FEND 

PRINT CHR$(12) 

CALL BUCLE.VACIO 
PRINT CHRS(12) 

CALL BU.COS 
PRINT CHR$(12) 

CALL SUMA 
END 
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LO NUESTRO ES HACER BUENAS GEStlONES 
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FACTURACION. Solo teclee un cbdigo y solen todos los datos del cliente. Numeracion correlativa automatica. Admite 30 productos* 
distintos por factura. Automaticos, descuentos, cargos, IVA, Proporciona 5 totales por factura. (P.V.P. 15.300 incl. IVA.) 

/ kESUPUESTOS. Guarda en memoria los presupuestos y extiende las facturas. Conceptos de 200 caracteres cada uno (3 renglones 
de escritura). (P.V.P. 18.300 incl. IVA.) 

CUENTAS, PROVEEDORES, BANCOS, CLIENTES. 3 ficheros separados. Resumenes totales, unitarios o parciales El meior 
auxiliar de CONTABILIDAD al d(a. (P.V.P. 8.600 incl. IVA.) 

CONTROL DE ALMACEN IVA.~ Codigo de 9 digitos alfanumericos. 25 digitos denominacion. Una sola pantalla entradas y sali- 
das, con vision de asientos anteriores. Stocks maximo, minimo y aviso para reaprovisionamiento. Totales entradas y salidas cada panto 
No. (P.V.P. 15.300 incl. IVA,) 

CLIENTES (con etiquetas). 1 1 compos distintos para localizacidn. Etiquetas 4 modelos distintos en salida de dos. El mas fiel auxiliar 
ahorrador de tiempo. (P.V.P. 8.600 incl. IVA.) 

RbL-IBOS. Resuelve el problema interminable a asociaciones, comunidades, colegios. Fijos los campos del normalizado y 12 campos 
IVA 6 ) ^ nunl ® r ' cos con c dlculos automaticos). Liquidaciones bancos. (P.V.P. 18.300 incl. IVA.) Con numeracion automatica (21.200 incl. 

RESTAURANTES. Tratamiento de minuta y facturas. Resumenes por grupos. Mesas abiertas permanentemente, correcciones, cam 
bios, etc., hasta emision fra. final. (P.V.P. 35.000 incl. IVA.) 

IVA POR ALMACEN. Rellena liquidaciones Hacienda. Introduce cuentas IVA gastos. (P.V.P, 18.900 incl. IVA.) 

URBANIZACIONES. Lectura y tratamiento de contadores consumos (agua, gas, luz, etc.). Extensidn recibos y totalizaciones ban- 
cos. Emision etiquetas. (P.V.P. 40.000 incl. IVA.) 

LIBROS DEL IVA. Controles de repercutido y soportado orden numerico. Resumenes estudios comparativos. Rellena liquidacidn Ha 
cienda. (P.V.P. 16.800 incl. IVA.) 

•~AC1 URACION Y ALMACEN. Gestion unida. Ficheros clientes, productos, descuentos y carqos. Todos los resumenes (P V P 
18.900 incl. IVA.) 

COlIZACIONES. El mejor cuadro comparative de precios. Le dice el mejor precio proveedor. (P.V.P. 26.300 incl. IVA.) 

FAC f URACION. Solo teclee un codigo y salen todos los datos del cliente. Numeracion correlativa automatica. Admite 30 productos 
distintos por factura. Automaticos, descuentos, cargos, IVA. Proporciona 5 totales para factura. (P.V.P. 15.300 incl. IVA.) 























C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 
Aparcamierito gratuito en Felipe II 





SOFTWARE: |j2 PROGRAMAS POR EL PRECIO OE 1!! 

Y adernds, completamente gratis, un magmfico reloj de cuarzo. Increible ^verdad? 


PING PONG 

Ptas. 

2.295 

SABOTEUR 

2.295 

RAMBO 

2.295 

YIEAR KUNG FU 

2.295 

WORLD SERIES BASEBALL 

2.095 

MAPGAME 

2.750 

RAID 

2.295 

HYPERSPORTS 

2.295 

HIGHWAY ENCOUNTER 

1.750 

HIGHWAY ENCOUNTER DISCO 

3.300 

ALIEN B 

1.750 


DYNAMITE DAN 

Ptas. 

2.100 

SABRE WULF 

1.650 

THEY SOLD A MILLION 

2.500 

FIGHTER PILOT 

1.975 

MASTER OF T. LAMP 

1.950 

NIGHIT SHADE 

1.950 

HACKER 

1.950 

SUPER TEST 

2.300 

TORNADO LOW LEVEL DISCO 

3.300 

TORNADO LOW LEVEL 

1.750 

KNIGHT LORE 

1.750 


SOFTWARE DE REGALO: jjOFERTA 2x1!! 


io1050 Am stracl 


Beach Head Decathlon Dummy Run Beach Head 


Southern Belle 


SOFTWARE DE GESTION PRO FES ION AL 


DBA II 
C BAS 1C 
DR DRAW 


17.800 DR. GRAPH 15.100 

15.100 CONTABILIDAD 

15.100 Y VTOS. 16.600 




H20% 
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SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 

CASSETTE ESPECIAL ORDENADOR 

5.295 PTAS. 


IMPRESORAS 

DTO . SOBRE P.V.P.i! 


UNIDAD DE DISCO 514" 
PARA AMSTRAD 

34.900 PTAS. 








CINTA VIRGEN ESPECIAL ORDENADORES 

69 PTAS. 


— 


JOSTICK QUICK SHOT II 
1.995 PTAS. 
JOYSTICK QUICK SHOT V 
2.295 PTAS. 

con la compra de un joystick 
jjGRATIS 1 RELOJ DE CUARZO!! 


DISKETTE 5M" 

295 PTAS. 

DISKETTE 3" 

990 PTAS. 


Pedidos contra reembolso sin ningun paste de envio. i els. (91) 275 C6 16/274 53 80, o escribiendo a Micro-1. C/ Duque de Sesto, 50. 280 )9 Madrid 
























































Ei Mejor Amigo 
del Amstrad 

Antonio J. de la Cuadra 


Para cualquier uso «en serio» que se le pretenda 
dar al ordenador sera imprescindible contar con 
una impresora. La impresora es, pues, un 
periferico que nos servira de gran ayuda para 
iistar programas, obtener graficos o incluso para 
converter al ordenador en una practica maquina 
de escribir con la ayuda de un «procesador de 

textos». 


/ 



tipos de impresora segun la forma 
que tienen de escribir los caracteres: 
matricial, de impacto o margarita, 
trazadores o plotters, y laser. I as pri- 
meras cuentan con una cabeza com- 
puesta por un conjunto de puntos 
que componen el caracter solicitado, 
de forma similar o como aparecen en 
la pantalla de vuestro ordenador. 
Las impresoras de margarita 
(«daisy») ya tienen definido el carac- 
ter como en una maquina de escri¬ 
bir convencional y obviamente con 
ellas se obtiene una mayor calidad 
de impresion pero, por contraparti- 
da, no pueden jugar con las diferen 
tes posibilidades de tamanos de los 
caracteres, ni obtener «softcopys» de 
pantalla ni graficos definidos por el 
usuario. Los plotters eston mas orien- 
tados a una utiiizacion de trazado¬ 
res de curvas y aunque permiten «di- 
bujars caracteres, su aplicacion pa¬ 
ra procesadores de textos no es na- 
da recomendable puesto que «escri- 
ben» a una velocidad excesivamen- 
te lento (del orden de 5 caracteres 
por segundo, 5 cps). Por ultimo, las 
impresoras laser representan el ulti¬ 
mo avance de la tecnologia en este 
sector y, a pesar de sus grandes ven- 
tajas de rapidez y alta calidad de ca¬ 


racteres y graficos por la impresion 
de un rayo laser sobre el papel, re¬ 
sultan prohibitivas para el usuario 
medio por su encarecido precio. 

Por sus posibilidades y su buena 
relacion precio/calidad nos vamas a 
centrar en el presente dossier en las 
impresoras del tipo matricial (Dot 
Matrix), Aunque podamos encon- 
trarlas en el mercado desde las 
20.000 ptas., el precio de una impre¬ 
sora de este tipo de calidad media 
suele oscilar por las 50.000 pesetas, 
y con ella no solo nos permitira re¬ 
dactor informes y Iistar programas si- 
no que ademas dispondremos de 
una pequena imprenta capaz de ju¬ 
gar con distintos tipos de letra y com- 
binarlas con caracteres graficos. 


Coneetor «Centronic» 
casi complato 

El Amstrad CPC se comunica con 
la impresora a traves de un conec- 
tor «Centronic». Este tipo de conec- 
tor se diferencia del conocido por 
RS-232 en que los datos que envia el 
ordenador a su periferico circulan en 
«paralelo» o simultaneamente a tra¬ 
ves de cables independientes. Por el 
contrario, en el coneetor RS-232 los 
bits recorren el mismo cable uno de- 
tras de otro o en «serie»; por esta 
razon este coneetor es el que utiliza 
para comunicaciones via MODEN 
entre ordenadores. 

La impresora funciona con unos 
codigos de caracteres que varfan en 
tre 0 y 255, que traducidos en siste- 
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ma binario son respectivamente 
&X00000000y&Xlllllll3, porlo 
que para definirlos necesitaremos un 
total de 8 bits, o sea, 8 cables en el 
ordenador Centronic, El resto de los 
contactos del Centronic lo forma el 
sistema de «protocolo», esto es las 
normas que deben cumplirse para 
cornunicarse el ordenador con la im- 
presora. 

Sin embargo, por una extraha ra- 
zon, el conector Centronic del Ams- 
trad CPC no estd completo, y el bit 
mas significativo se encuentra pues- 
to siempre en estado bajo (0) varian 
do los codigos entre &X00000000 y 
&X01 Tin 11, por lo que desde nues- 
tro ordenador favorito solo dispon- 
dremos de los 127 primeros caracte- 
res de la impresora, afortunadamen- 
te los que componen el codigo AS¬ 
CII (Codigo Americano Standard pa¬ 
ra el Intercambio de Informacion), y 
perderemos en principio el segundo 
juego de caracteres dedicado gene- 
ralmente a grdficos y alfabeto grie- 
9 °- 

Y decimos en principle porque no 
esta todo perdido. Para los afortu- 
nados poseedores de una impreso¬ 
ra Seikosha, Admate o New Print, les 
sera posible acceder al escondido se- 
guriao juego de caracteres median 
te: 


PRINT#8, CHR$(27); " = 

para la Seikosha SP 1000 CPC, o 
bien: 

PRINTS, CHR$(27); "?0"; 

para los modelos Admate/New Print 
DP 100/DP-140/DP-80/CPA-80. De 
esta forma levantamos el bit mas sig¬ 
nificativo al estado alto (1) y accede- 
remos a los codigos altos. Para re- 
poner el estado normal basta con 
hacer: 


PRINT#8, CHR$(0); 
PRINT#8, CHR$(27); "?l"; 

Para la Seikosha y Admate/New 
Print respectivamente. 

El resto de usuarios de impresoras 
lo tendra mas difi'cil, aunque no im 
posible, puesto que en Inglaterra la 
firma Hitech ha creado un periferi- 
co que perrriite acceder al segundo 
juego de caracteres incluyendo ade- 
mds «copys» de pantalla mediante 
comandos RSX. El kit hardware y 
software se encuentra en el merca 
do britanico al precio de 15.75 libras 
y es de esperar que en un futuro al 
gun distribuidor nacional se haga 
cargo de su importacion. 
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Impresoras 
con RAM 


Ya hemos entrado en el comando 
para la impresora: "PRINT#8,", o 
bien en forma abreviada "?Pt8,". 
De esta podemos ordenar a la inrt- 
presora que escriba una frase, por 
ejempio, "PRINT#8, MICROHOBBY 
AMSTRAD". Comprobaras que si no 
tienes encendida la impresora, el or 
denador se quedard colgado sin de- 
volverte el «Ready». Esto se debe a 
que el sistema de protocola no de- 
vuelve el control al ordenador hasta 
que se haya cumplido la instruccion. 
Estas instrucciones pasan previamen- 
te por un «buffer» o tampon de me- 
moria que no es mas que una espe- 
cie de camara de descomprension 
que almacena los datos antes de ser 
impresos. 

Habras comprobado que cuando 
se escriben listados de programas 
largos con el comando "LIST#8”, el 
ordenador se queda inmovilizado a 
la espera de terminar el listado. Op- 
cionalmente en la mayorfa de las im 
presoras que conocemos, el propie 
tario puede adquirir una ampliacion 
del buffer de RAM que evita la situa- 
cion mencionada, posibilitando la 
utilizacion del ordenador mientras 
que trabaja la impresora. 


Infinitas posibilidades 


Siempre que se reinicialice y mien¬ 
tras que no se le ordene lo contra 
rio, la impresora escribira caracteres 
en tamano «PICA» (10 caracteres por 
pulgada). Si deseamos cambiar el 
tamno de letra al denominado «ELI- 
TE» (12 cpp) debemos preparar la 
impresora con: 

PRINTS, CHR$ (27); "M"; 


De esta forma la impresora reco- 
noce el CHR$ (27) (denominado ES- 


Denorti. 

NUL 

BEL 



Decimal 

CHR$ ( 0) 
CHR$ ( 7) 


Hexadec. 

CHR$ (&0) 
CHR$ (&7) 


CHR$ ( 8) 
CHR$ ( 9) 


CHR$ (&8) 
CHRS (&9) 


CHR$ (10) 

chr$ ni) 


CHR$ (&A) 
CHR$ (&B) 


CHR$ (12) 
CHR$ (13) 


CHR$ (&C) 
CHR$ (&D) 


CHRS (14) 
CHR$ (15) 


CHR$ (&E) 
CHR$ (&F) 


DC1 

DC2 


CHR$ (17) 
CHR$ (18) 


CHR$ (&11) 
CHR$ (&12) 


DC3 

DC4 

CAN 

ESC 


CHR$ (19) 
CHR$ (20) 


CHR$ (241 
CHRS (27) 


CHRS (&13) 
CHR$ (&U 
CHR$ (&18) 
CHR$ (& 1B) 


Funcion 

Fin de tabulador con ESC D 

Suena la chicharra de la impresora durante 

0,3 seg. 

Retrocede el cabezal un espacio. Muy util 
para poner acentos y dieresis 
Desplaza el cabezal a la siguiente posicion 
marcada por el tabulador horizontal 
Salta una linea 

Tabulacion vertical. Si no esta fijada hace un 

LF 

Salta una pagina 

Retorno de carro. Imprime el contenido del 
buffer y lo vacia 

Modo expandido hasta el final de linea o 
recepcion de DC4 

Modo comprimido. Permanece hasta que se 

cancela con DC2 

Pone la impresora en 'SELECT' 

Termina caracteres comprimidos y vacia el 
buffer 

Coloca la impresora en modo 'DESELECT' 
Termina el modo expandido 
Borra todos los caracteres del buffer 
Codigo 'ESCAPE'. Prepara la impresora 
para recibii una secuencia de control 






Cape) y se dispone a cambiar uno de 
sus formatos, en este caso al defec¬ 
tor la letra 'M' — CHR$ (77) — cam- 
bia a un tipo de letra ligeramente 
mas estrecha. Para volver nueva- 
mente al tipo de letra anterior basta 
hacer: 


con 


PRINT#8, CHR$ (27); "P"; 


Debemos recorder que existen im¬ 
presoras que no cuentan con las po¬ 
sibilidades que citamos en el presente 
dossier por lo que por mucho que se 
intenten los comandos que expone¬ 
nts no se conseguira nada. 

Otro tipo de letra con el que pue¬ 
de contar nuestra impresora es el co- 
nocido corno 'PROPORCIONAL'. 
Aunque este tamano de caracter es 
el mismo del tipo 'PICA' no se pue 
de decir en este caso que tenga 10 
cpp puesto que el espaciado de ca¬ 
racteres es inversamente proporcio- 
nal al ancho de la letra. Asi pues, la 
separacion en los caracteres 'w' o 
'm' sera menor que la de 'i' o '!'. Su- 
poniendo que contaramos con este 
tipo de caracteres bastaria para ac- 
tivarlo o desactivarlo respectivamen- 
te con: 


PRINT#8, CHR$ (27); "p"; CHR$ 


(n); 


con n = 0 para desactivarlo y n = 
para activarlo. Hay que resaltar que 
el caracter 'p' debe estar en minis- 
cula. 


PRINT#8, CHRS (15); 


Con estos tres tipos de letra tene- 
mos la posibilidad de 'CONDENSAR' 
los caracteres convirtiendo el paso 
'PICA' que un cuerpo de letra de 17 
cpp. Para ello, debemos hacer lo que 
se conoce por 'SI': 


12 M. AMSTRAD ESPECIAL 























Para su desconexion tendremos 
que hacer el control 'DC2' que es: 

PRINT#8, CHR$ (18); 

Del mismo modo para obtener un 
caracter 'EXPANDIDO' debemos ha 
cer un control 'SO' y para desacti 
varlo el conocido por 'DC4'. Estos 
dos controles se programan respec- 
tivamente con: 

PRINT#8, CHRS (14); PRINT #8, 
CHR$ (20); 

Otro punto que puede resultar de 
gran interes son los caracteres 'SU¬ 
PERINDICES' y 'SUBINDICES'. 

Estos tipos de impresion se logran 
comprimiendo a la mitad la altura de 
un caracter normal. 

Para activarlos debemos ha 
cer: 

PRINT#8, CHR$ (27); "S"; CHR$ (n); 

dande n debe ser 1 para 'SUBINDI¬ 
CES' y 0 par a 'SUPERINDICES'. Para 
desactivar cualquiera de los modos: 

PRINT#8, CHR$ (27); "T"; 

El 'SUBRAYADO' de los caracte¬ 
res y su posterior desactivacion se 
consigue respectivamente con: 

PRINT#8. CHR$ (27); CHR$ 

0 ); 

PRINT#8, CHR$ (27); CHR$ 

( 0 ); 

La letra en 'NEGRITA' se consigue 
haciendo una segunda pasada a la 
misma altura con una separacion de 
1/120 de pulgada. Este modo no es 
compatible con los caracteres 'SUPE¬ 
RINDICES'y 'SUBINDICES'. 

Para activarlo o desactivarlo debe¬ 
mos hacer: 

PRINT#8, CHR$ (27); "E"; 

PRINT#8, CHR$ (27); "F"; 

El modo de 'REPICADO' es similar 
al de la 'NEGRITA' pero la segunda 
pasada se hace por encima de la pri 
mera a una altura de 1/144 de pul¬ 
gada. Su activacion o desactivacion 
se consigue con: 

PRINT#8, CHR$ (27); "G” ; 
PRINT#8, CHR$ (27); "H"; 

Hasta aquf practicamente esta to- 
do dicho sobre los diferentes tipos de 
letra. No obstante existen impreso- 
ras con un tipo de letra llamado 
'NLQ' o de 'ALTA CAUDAD'; con ello 
se permite un estilo de impresion con 
mucha mejor definician que el modo 
estandar. 



SEISKOSHA GP-700 
A COLOR 

Matriz de impresion de 7 X 8. Velocidad de 
impresion 50 cps. 80 columnas. Caracteres 
normales y expandidos, grdfica, cuatro 
tipo de caracteres. Traccion/Friccion. 
Impresion a color. 

Precio. 72.688 pfas. 

Cartucho color. 3.125 ptas. 

Cartucho negro . 1.781 ptas. 



SEISKOSHA 
SP-1000 CPC 

Matriz de puntos de alta velocidad (100 
cps), modo de impresion bidireccional y 
optimizada, capacidad grafica con alta 
resolucion. 80 columnas y 137 en 
comprimido. NLQ a 24 cps. Traccion y 
friction. Introductor automatico hoja a 
hoja. Preparada para Centronic de 7 bits 
Amstrad. 

Precio. 72.688 ptas. 

Cartucho tinta . 1.568 ptas. 





BROTHER M-1009 

Velocidad de impresion 50 cps. Impresion 
bidireccional, unidireccional para graficas. 
Traccion y friccion. Introductor hoja a hoja. 

Precio. 44.000 ptas. 

Cartucho tinta . 516 ptas. 

(*) Existe la version M-l 109 con 100 cps 
y las mismas caracteristicas por 51.500 
ptas. 





SEISKOSHA GP-50 A 

Matriz de impresion de 5 X 8. Velocidad de 
impresion 40 cps. 46 columnas. Caracteres 
normales y expandidos, grafica. Solo 
friccion. Alimentador de corriente externo. 

Precio. 22.288 ptas. 

Cartucho tinta . 1.568 ptas. 

n 

(’) En colores rojo, verde, negro, azul, 
marron, morado, naranja. 



NEW PRINT/ADMATE 
DP 100 

Matriz de puntos de 8x8. Velocidad de 
impresion 100 cps. Impresion bidireccional. 
Traccion y friccion. 80 columnas en PICA 
y 142 en comprimido. Preparada para 
Centronics de 7 bits. 

Amstrad 

Precio. 62.600 ptas. 

n 

Cartucho tinta . 1.120 ptas. 

(’) Mismas caracteristicas con 80 cps para 
DP 80 LQ (51.400) y CPA 80 con 80 cps 
y NLQ (62.600 ptas.). 



C.ITOH 7500 AP 

Velocidad de impresion 105 cps. Traccion 
y friccion. 80 columnas en pica y 136 en 
comprimido. Buffer de 2 K. Graficos por 
bit imagen. 

Precio. 94.528 ptas. 

Cartucho tinta .. — 




















































Otra posibilidad que podemos 
conseguir con las impresoras es va- 
riar corno 'LINE FEED' (LF) . Nueva- 
mente nos encontramos con el siste- 
ma de medida inglesa en pulgadas 
que es el aue parece que se toma co- 
mo estanaard. A continuation expo 
nemos los comandos con su respec¬ 
tive consecuencia: 


PRINT#8, CHR$ (27); 


"0". 

LF a 


1/8 ' 

PRINT#8, CHR$ (27); 


"1"; . 

LF a 


7/72 

PRI NT #8, CHR$ (27); 


"2". 

LF a 


1/6 ' 

PRI NT #8, CHRS (27); 


"3"; CHR$ (n); . . . . 

LF a 


n/216 

PRI NT #8, CHR$ (27); 


"A"; CHRS (n); .... 

LF a 


n/72 


A corazon abierto 

Desmontar la impresora no debe 
causar ningun trauma al usuario. De 
hecho los manuales dan los oportu 
nos consejos para hurgar en su inte¬ 
rior donde precisamente se encuen- 
tra un conjunto de microinterrupto- 
res que permiten fijar una serie de 
condiciones como el salto de pagina 
o 'FORM FEED' (FF), el salto de Ifnea, 
la cantidad de columnas por linea, y 
el conjunto de caracteres. Esto nos 
puede venir que ni pintado si el pa- 
pel continuo que hemos escogido no 
esta sincronizado con el salto de pa- 
gina, o bien queremos fijar los carac¬ 
teres en castellano. 

Habreis podido comprobar las 
enormes posibilidades de las impre¬ 
soras, sus precios estan en funcion de 
la cantidad de formatos de impre- 
sion. Si todavia no os habeis decidi- 
do nuestro catalog© os servira de 
gran ayuda. Si yala teneis es nues¬ 
tro deseo que el presente dossier os 
valga de gran ayuda. 


Consefos 

• Conecta el cable de la impreso¬ 
ra al ordenador con ambos apaga- 
dos. 

• Conecta primero el ordenador 
y posteriormente la impresora. 

• Aseaurate que el voltaje que uti- 
lizas es el que especifica el fabrican- 
te. 

• No toques el cabezal mientras 
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que esta imprimiendo ni despues de 

imprimir. 

• Cuando utilices papel continua, 
asegurate que los agujeros estan all 
neados. 

• Evita doblar la cinta cuando la 
instales. 

• Una vez apagada la impresora 
no la enciendas hasta pasados dos 
segundos. 


• No coloques el tractor cuando 
esta en modo de friccidn. 

• No intentes imprimir sin papel ni 
cinta. 

• Efectua periodicamente una lim- 
pieza de polvo en el interior de la im¬ 
presora. 

• No hagas caso de estos conse¬ 
jos, si el manual especifica lo contra- 
rio. 


□ 


PROGRAMA I 


SALIDA DSL PROGRAMA 7 


10 PRINT#8,CHR*(27) \ CHR*(64);:REM R 
esetea la impresora. 

20 PRINT*78, CHR* < 15) ; "Cuerpo 5 CONDEN 
SADQ': 17 caracteres por pulgada.": 

REM Activa codigo de control ’SI'. 
30 PR I NT#8,CHR*(18);:REM Desactiva 
codigo 'SI' mediant® codigo de cont. 
rol ’DC2'. 

40 PR1NT#B,CHR*(27)s"M"j"Cuerpo 'EL 
ITE’: 12 caracteres por pulgada."iR 

EM Modo 'ELITE'. 

50 PR INT#8,CHR*(27);"P" j"Cuerpo 'PI 
CA'i 10 caracteres por pulgada."iRE 
M Desactiva modo 'ELITE' dejando la 
impresora en su estado normal (mod 
o 'PICA'>. 

60 PRINT#B, CHR* (27) j 11 p" j CHR* (1) ; "Cu 
erpo ' PRCJPORCIONAL't espaciado prop 
orci onal . ’*: REM Modo 'PROPORCIONAL'. 
70 PR I NT#8,CHR*(27) \ "p "\ CHR*(0)jiRE 
M Desactiva modo 3 PROPORCIONAL'. 

80 PRINT#B,CHR*<14)j"Modo 'EXPANDID 
O': 5 caracteres/pulgada. 1 rem Activ 
a codigo de control 'SO'. 

90 PRINT#0,CHR*(20);iREM Desactiva 
codigo 'SO' mediante codigo d« cont 
rol 'DC4'. 

100 PRINT#B,"Caracteres 
HO PR I NT #8, CHR* (27) ; “S" } CHR* ( 1) j "5 
UB-Indices";iREM Modo 'SUB INDICES'. 
120 PR INT#8,CHR*(27);"T H j" y "jiREM 
Desactiva modo 'SUBINDICES' volviB 
ndo a 'PICA'. 

130 PRINT#B,CHR*(27)j"S"|CHR*(0)j"S 
UPER-Indices"iREM Modo 'SUPERINDICE 
S' . 

140 PRINT#B,CHR*(27) \ "T" \ "Palabras 
"jjREM Desactiva 'SUPER INDICES' vol 
viendo a 'PICA' para eacribir "Pala 
bras " . 

150 PRINT#B,CHR*(27)J s CHR* ( 1) s "s 
ubrayadas. '■ s REM Modo 'SUBRAYADO'. 

160 PRINT#B, CHR* (27) ; s CHR* (0) ; : 
REM Desactiva modo 'SUBRAYADO'. 

170 PRINT#8,CHR*(27);”E"$"Caractere 
s 'PICA' en 'NEQRITA* por doble pan 
ada horizontal.":REM Modo 'NEGRITA' 

1 BO PRINT#B,CHR*(27);"F"s:REM Desac 
tlva 'NEORITA'. 

190 PR I NT #B,CHR*(27);"G";"Caractere 
% ’PICA' en 'REPICADO' por doble pa 
t«da en vertical.":REM Modo ’REPICA 
DO' . 

200 PRINT#8,CHR*(27)}"H";:REM Desac 
tiva 'REPICADO'. 

210 PRINT#8,STRING*(4,CHR*(10));REM 
Qrdena cuatro saltos de linea. 

220 FOR n-1 TO 3:PRINT#B,CHR*(27);” 
0"i"Espaciado entre lineas & 1/B de 
pulqadaNEXT:REM Espaciado a 1/B 

230 PRINT#B,CHR*(27);CHR*(64):REM R 
esetea la impresora 

240 FOR n-1 TO 3iPRINT#B,CHR*(27)$" 
1"j"Espaciado entre lin«a* a 7/72 d 
e pulgada.”iNEXT:REM Espaciado a 7/ 
72 

250 PRINT#B,CHR*(27)j CHR*(64) 

260 FOR n-1 TO 3 s PR I NT#8,CHR*(27);" 
2 ";"Espaciado entre lineas a 1/6 d« 
pulgada.NEXT:REM Espaciado a 1/6 

270 PRINT#B,CHR*(27);CHR*(64) 

280 FOR n-1 TO 3iPRINT#8,CHR*(27)>" 
3";CHR*(10);"Espaciado entre lineas 
a 10/216 de pulgadaNEXTiREM Esp 
aciado a n/216" <n*10). 

290 PRINT#©,CHR* <27);CHR*(64) 

300 FOR n-1 TO 3tPRINT#©,CHR*(27) t ” 
A”iCHR*(2)j"Espaciado entre lineas 
a 2/72 de pulgada. M tNEXTiREM Espaci 
ado a n/72" (n-2). 

310 PR INT#8,CHR*(27) j CHR* < 64) 


Cuerpo ’CONDENSAM’i 1? carJCteres 
por pulgada. 


Cuerpo 'ELITE'S 12 caracteres por p 
ulgada. 


Cuerpo ’PICA ? : 10 caracteres por pu 
1gada. 

Cuerpo 'PROPORCIONAL': espaciado pr 
oporcional. 

Modo 'EXPANDIDO': 5 caracteres/pulg 
ada.srem Activa codigo de control ' 
SO’ . 

Caracteres Y 

■ ur««- Indie mm 

Palabras subravadas t 

Caracteres 'PICA' en 'NEGRITA' por 
doble pasada horizontal. 


Caractere* 'PICA' en 'REPICADO* por 
doble pasada en vertical. 

Espaciado entre lineas a 1/8 de pul 
gada, 

Espaciado entre lineas a 1/8 de pul 
gada. 

Espaciado entre lineas a 1/8 de pul 
gada. 


fleas 

final 

final 


ado entre lineas a 7/72 de pi 
ado entre lineas a 7/72 de pu« 
ado entre lineas a 7/72 de pu 


Espaciado entre lineas a 1/6 de pul 
gada. 


Espaciado entre lineas a 1/6 de pul 
gada. 


Espaciado entre lineas a 1/6 de pul 
gada. 


e "tre lineas a 10/216 de 
entre lineas a 10/216 de 
entre lineas a 10/216 de 


Espaciado entre lineas a 2/72 de pu 
1gada. 


Espaciado entre lineas a 2/72 de pu 
1gada. 


Espaciado entre lineas a 2/72 de pu 
1gada. 


















Anote este nombre 
recuerde esta imagen 



Si necesita uno de los mejores programas originates de gestion. 

• ■ Gestion integrada, facturacion, stock, clientes. 

Si desea mecanizar su negocio. 

— Clmicos veterinarias. 

— Video clubs. 

— Administracion de fincas. 

— Distribuidoras de cine. 


SOFTWARE para 

MW 


r'C'iirvmr iv 


Si precisa un buen programa tecnico. 

— Cdlculo de estructuras. 

— Mediciones y presupuestos. 

— Calculo de vigos. 

— Estructuras espaciales. 

— Andamios. 

— Calculos en hormigon. 

Si lo que quiere es una aplicacion puntual. 

. Decloracion de lo Renta. 

— Loteria primitiva. 

— Agendo multiuso. 

Si busca que le hagan un programa a la medida. 


SOFTWARE NEW LINE, S. A. 
Gabinete de Informatica 

Zurbano. 4 - 28010 Madrid - Telfs. 410 40 98 - 410 47 


























F 1CHEROS INDEXADOS 

y Mallard basic 

Javier Barcelo 

in el primer numero especial de MICROHOBBY 
AMS RAD se trato el tema de los ficheros en disco 
para la serie de CPC. La aparicion del PCW 8256, 
con un Basic distinto e incompatible con el de los 
CPC, entre otras particularidades incorpora un 
interesante modulo de programacion, muy raro 
de encontrar en el Basic de ordenadores incluso 
muy superiores en precio: el modulo JETSAM para 
indexacion de ficheros. 

mondos, pero en grandes ficheros esfe modo 
de organizacion es dificilmente superable. 


I 

?« 55 y)os que leyeran el arti- 
culo anterior ademas de los que hayan hecho 
programas con ficheros, recordaran el incon- 
veniente de los ficheros de acceso aleatorio. 
Cada registro se localizaba por medio de su 
numero, por lo que si este no era fad! de re- 
cordar, mediante una formula, o por que es¬ 
te coincida, por ejemplo, con el numero de 
cliente, etc... resultaba que para buscar un re¬ 
gistro habia que leer todos los anteriores, con 
i 0 que la principal facilidad que otorgaban es- 
tos ficheros quedaba anulada. Este problema 
es el origen de los ficheros indexados. Un fi- 
chero indexado es un fichero que posee un in 
dice, al igual que un libro, de manera que la 
localization de un registro se hace a traves de 
este. 

Un fichero indexado consta en realidad de 
dos ficheros. Uno donde se encuentran los da- 
tos introducidos, y ofro donde el programa, 
a medida que se introducen los datos en el pri- 
mero, va creando un indice de los registros. 
De esta manera, cuando se desee localizar un 
registro, basta con introducir el valor de! carn- 
po clave — numerico o alfanumerico— y el pro- 
pio programa lee el indice hasta localizar la 
clave, con la que esta la position que el re¬ 
gistro ocupa en el fichero de datos, y despues 
va al registro de datos. 

Aunque el proceso pueda parecer lento, el 
ahorro de velocidad que asi se consigue es 
muy considerable, dado que el fichero de in¬ 
dices no solo es mas corto que el de datos, si- 
no que ademas se mantiene alfabeticamente 
ordenado segun el valor de la clave. La clave 
puede ser cualquier campo de registro, y ade- 
mas no tiene por que ser unica. Es decir, que 
se puede mantener un fichero con un indice 
ordenado de varias maneras, especificando 
varias claves. 

Naturalmenfe, el manejo de esfos ficheros 
es un poco mas complicado que el de los fi¬ 
cheros directos, dado que exige un mayor con¬ 
trol del mismo y, por lo tanto, tiene mas co- 


Modulo JETSAM 


El Mallara Basic del PCW 8256 gestiona este 
tipo de ficheros a traves de un modulo llama- 
do JE T $AM. Este modulo se encarga de ges- 
tionar — simultaneamente a la gestion normal 
del programa- el fichero de claves. Permite 
casta ocho tipos de claves, que serdn campos 
del registro con una longifud maxima de 32 
caracferes por clave. Por el programa se se- 
ecciona el campo o campos que serviran de 
clave, su iongitud y el orden de dichas claves. 
Si se utilizan varias claves, hay que especifi- 
car un orden de prioridad de las mismas. Es- 
to es lo que se llama RANGO de la clave. Es 
decir, que existiran ocho ranges de claves co- 
mo maxima, en cada uno de los cuales esta- 
ran clasificados todos los registros del fichero 
por distintos concepros. Disponer de varias cla¬ 
ves. Rcsulta imprescindible, por ejemplo, cuan¬ 
do en la primera clave seleccionada puedan 
exisfir valores repetidos en diversos registros. 
(Suponiendo un fichero que se ordene alfabe¬ 
ticamente, el primer apellido puede ser el pri¬ 
mer rango de claves, y si hay repetidos, el se- 
gundo rango seria el segundo apellido, el fer- 
cero seria el nombre...). 

La manera de operar con los registros de es¬ 
te modulo es mediante una marca invisible que 
se llama puntero. El registro que se utiliza es 
aquel al que esta sehalando este puntero. Co¬ 
mo el numero de registro en estos ficheros es 
gestionado por el modulo JETSAM de mane¬ 
ra automatica, lo que hace el programa es 
«ordenar» a JETSAM que busque el regis¬ 
tro con una clave deterrninada. Cuando JET¬ 
SAM lo encuentra, senala el registro del fichero 
de datos al que corresponde esa clave con este 
puntero. Y entonces es cuando se consulta, 
modifica o cualquier otra operation que se de¬ 
see hacer con el. Comprender que lo que se 
manejard para seleccionar cualquier registro 
es el puntero y no el numero de registro, es 


fundamental para entender el manejo de di- 
versas funciones que se explicaran a continua¬ 
tion. 

Las operaciones con ficheros indexados se 
f ace casi todas a traves de funciones en vez 
de comandos. Esta es la principal diferencia 
con los demas tipos de ficheros. Una funcion 
<a realize y ademas da un resultado diferen- 
te, dependiendo del exito o fracaso de dicha 
operacion. Por esto, al utilizar una funcion esta 
se coloca en el segundo termino de una ecua- 
cion y en el primer termino se coloca una va¬ 
riable. Al efectuarse la operacion, la variable 
pasa a aimacenar un valor que informa sobre 
ei resultado de la operacion. Es recomenda- 
ble utilizar esta posibilidad asociada a una su- 
brutina de detection de falios, para tener la 
certeza de que la operacion se ha efectuado 
correcfamente. Existen distintos resultados se- 
gun la funcion que se emplee, y en todos e! 
valor 0 quiere decir que se ha efectuado la 
operacion correctamenfe, mientras que los de- 
mas valores, que pueden diferir segun la fun¬ 
cion, informan de distintos razones por las que 
esta no se ha podido hacer con normalidad. 

Para explicar las diferentes fases del funcio- 
namiento de estos ficheros, se usara como re¬ 
ferenda el programa ejemplo que aparece con 
este artrculo. Este programa, muy sencillo, pro- 
porciona la clasificacicn de los equipos en !a 
liga, introduciendole primero los equipos y 
despues los resultados de las jornadas. El fi¬ 
chero indexado es el fichero de equipos, don¬ 
de se actualizan los punfos y los goles cada 
vez que se introducen los resultados de una 
jornada. Los resultados de las jornadas van 
en un fichero directo muy sencillo, por lo que 
no se entrara en detalles de este. La unica par- 
ticularidad que presenta este programa es que 
esta hecho para doce equipos, por lo que si 
se desea utilizar con mas, habra que rnodifi- 
car en la linea 90, la variable EQU'POS. 


Creacion del fichero 


La primera diferencia que tienen estos fiche¬ 
ros con los demas es que estos deben ser crea- 
dos en el disco antes de ser ufilizados. Pero 
antes de esto, cuando se quiera operar con 
ficheros indexados, lo primero que se hara es 
reservar siiio en la memoria para que JETSAM 
mantenga los indices del programa. Esto es ne- 
cesario porque JETSAM mantiene desde que 
el fichero se abre hasta que se cierra la infor¬ 
mation sobre el indice en la memoria, para 
incrementar la velocidad del programa. Esto 
lo hace creando unas zonas reservadas en la 
memoria, llamadas buffers o tampones, que 
son bloques de memoria de 128 bytes. El nu¬ 
mero de tampones que se reservan no es fijo, 
se puede elegir teniendo en cuenta que a ma¬ 
yor cantidad de ellos, mas rapidamente fun- 
cionaran las operaciones con el fichero, aun¬ 
que nafuralmente quede menos memoria dis- 
ponible para el resto del programa. En casos 
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tre comillas el nombre del fichero de datos y 
el de claves, el numero 2 y la variable que con- 
t.enga la longitud del regisfro, todos ellos se- 
parados por comas. La longitud del regisfro 
se puede omitir si esta es de 128 caracteres, 
pero hay que ponerla en los restantes casos. 

Aun hay otra instruccion necesaria antes de 
poder operar con estos ficheros. Esta sirve pa 
ra definir el diseno del regisfro, y es: 

FIELD numero de fichero, longitud AS nombre 
de campo. 

Si se ven las lineas 310, 550 y 1030 se obser¬ 
ve que despues de la instruccion viene el nu¬ 
mero del fichero al que se refiere, y posterior- 
mente, separados por comas, los campos de 
ios que consta el regisfro con su longitud. Se 
pone primero la longitud del primer campo, 
ia palabra (AS) y su nombre, y separados por 
comas los demas campos que tengan el regis- 
tro. No hay que considerar los dos caracte¬ 
res que reserve JETSAM para su uso, luego 
la suma de la longitud de los campos que apa- 
rezean en este comando, debe sumarse la lon¬ 
gitud total del regisfro menos dos. En este pun- 
to hay que aclarar que a la hora de introdu¬ 
ce datos en las variables que aparecen en es¬ 
ta instruccion, NO se puede hacer directamen- 
te. Hay que utilizer las instrucciones LSET, RSET 
y MlD$. Si se ve la Ifnea 750, no se lograria 
el mismo efecto haciendo: 

nombre$ = nom1$ 

sino que se crearfa una variable llamada 
normbre$ que no tiene nada que ver con la de- 
finida en la instruccion FIELD. Hay, pues, que 
poner antes LSET. RSET o Ml D$ ANTES de la 
variable nombre$ LSET coge de la variable de 
la segunda parte de la igualdad empezando 
por la izquierda, el numero de caracteres ne- 
cesario para completar la longitud dada a la 
variable de la primera parte en la instruccion 
FIELD. RSET hace lo mismo, pero empezando 
por la derecha. Y MlD$ permite elegir una zo¬ 
na intermedia de dicha variable. 

Explicadas las primeras instrucciones, hay 
que pasar a explicar las funciones de las que 
dispone JETSAM para gestionar estos ficheros. 
Antes que nada, se les llama funciones por- 
que dan un resultado. Es decir, que al escri 
bir, leer, buscar, etc... podemos saber si el re¬ 
sultado es correcto o no mediante el resulta¬ 
do de la funcion. La Ifnea 430 del ejemplo, al- 
macena en la variable RDO el resultado de 
una funcion (que se explicard mas tarde) y va 
a la subrutina de confirmacion de resultados, 
a partir de la Ifnea 1360, para comprobar cual 
ha sido el resultado de la operacion realiza 
da, y lo presenta en pantalla. Aunque una vez 


normales es suficiente con reservar seis buf¬ 
fers. La orden para hacer esto es: 

BUFFERS 6 

Esta orden habra que utilizarla siempre al prin¬ 
ciple de todo programa que utilice ficheros in- 
dexados. En el programa ejemplo esta en la 
iinea 100. 

La creacion del fichero, propiamente dicho, 
se hace en la Ifnea 150. Para esto, se usa la 
orden: 

CREATE 

La descripcion de la orden es la s'guiente: 
Despues de CREATE, y sin coma, poner el nu¬ 
mero de fichero. Este es el numero con el que 
nos referiremos a el en sucesivas instrucciones. 
Despues poner una coma, entre comillas el 
nombre del fichero de datos, coma, nombre' 
del fichero de claves, coma, dos (numero ne- 
cesario aunque inutiij, coma, y la variable que 
contenga la longitud del fichero. (En el ejem 
plo, long.) 

En cuanto a la longitud del fichero, hay que 
puntualizar una cosa. Cuando se este hacien¬ 
do el diseno de registro, la longitud total del 
mismo se vera incrementada en dos posicio- 
nes. Estas dos posiciones se ignorardn en to- 
do momento, excepto al dar el valor de la lon¬ 
gitud del registro, y son utilizadas internamente 
por el modulo JETSAM para codificar la relo- 
cion con el fichero de claves. 

Al crear el fichero este queda abierto, por 
lo que si no se va a introducir ningun dato, es 
necesaria cerrarlo. Al contrario que los fiche¬ 
ros secuenciales y aleatorios, para cerrar los 
ficheros indexados hay que especificar nece- 


sariamente el numero del fichero que se cie- 
rra con la instruccion: 

CLOSE No. de fichero. 

El cierre del fichero es fundamental. Como se 
ha dicho antes, las actualizaciones en los in¬ 
dices se hacen en la memoria, y no se graban 
ffsicamente en el disco hasta que se cierra el 
fichero, por lo que un olvido, o un fallo de co- 
rriente, y otra incidencia que impida el cierre 
correcto, harfa que dicho fichero no se gra- 
base, y el fichero de datos quedase inutiliza- 
ao. Es lo que se llama fichero inconsistente. Pa¬ 
ra mayor seguridad, si el fichero debe estar 
abierto mucho tiempo, se puede usar el ca- 
mando CONSOLIDATE. Este graba el conte- 
nido de los tampones de claves en el disco, de- 
jandolo en el mismo estado en que quedarfa 
despues de cerrarlo, pero abierto. Equivale a 
hacer CLOSE, y despues OPEN. 


Mantenimiento del fichero 


Para abrir un fichero indexo, naturalmenfe 
ya creado, se utiliza la instruccion: 

OPEN «K» 

En esta instruccion, que se puede ver en las 
Ifneas 300,530 y 1020, despues de la K entre 
comillas, indica que el fichero es de acceso por 
claves, hay que poner el numero del fichero, 
que no tiene por que coincidir con el que se 
puso al crearlo. El numero que se da al abrir- 
lo es el que luego servird para referirse a este 
fichero. Despues de este, hay que poner en- 
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depurado su programa y comprobado que 
funciona correctamente, esfo no sea en abso¬ 
lute) necesario, mientras se construye y se prue- 
ba el programa resulta de suma utilidad para 
darse cuenta de algunos fallos dificiles de no¬ 
tar de otro modo. 

Una vez explicado esto, pasemos revista a 
las diversas funciones que incluye el modulo 
JETSAM. 

ADDREC escribe los datos que esten alma- 
cenados en las variables de la insfruccion 
FIELD en el registro siguiente al ultimo que ha- 
ya en el fichero, y el puntero queda apuntdn- 
dole. Ademas anade la clave de dicho regis¬ 
tro en el fichero de claves. Como se ve en la 
linea 430 del ejemplo, la forma es: 

Variable = ADDREC(No. 

Fichero,2,rango, clave) 

En el campo (Variable) se almacena el resul- 
tado de la operacion que anade el registro al 
fichero, y ademas toma el campo que aparez- 
ca en (clave) y los situa en el rango indicado 
actualizando dicho rango de claves. 

Pero coma se ha dicho, se puede tener cla 
sificado un fichero por disfintas claves. En ese 
caso, despues de esta insfruccion hay que po- 
ner esta oira: 

Variable=ADDKEY(No. Fichero.O,rango,cla¬ 
ve,No. de Registro) 

Ei funcionamiento de esta es similar al de la 
funcion anterior, pero hay que anadir una co- 
sa: el numero de registro de dicha clave. Pa¬ 
ra esto, habra que averiguar el No. de regis¬ 
tro que acaba de utilizar ADDREC. (dado que 
hay que incorporar una nueva clave al regis¬ 
tro que ha sido grabado anteriormente.) Esto 
se hace a traves de la siguiente funcion: 

Variable = FETCHREC (No. de fichero) 

En esta variable tomard el valor del registro 
ai que este senalando el puntero, pudiendo in- 
cluirlo despues en otras funciones. Esto es lo 
que hacen las lineas 450 y 460 del ejemplo. 

Tambien se puede necesitar saber el rango 
de la ultima clave introducida. Para esto se uti- 
liza: 

Varible= FETCH RANK (No. de fichero) 

Doride variable tomard el valor del ultimo 
rango que se haya utilizado. En caso de ne¬ 
cesitar el contenido de la ultima clave utiliza- 
da, se usa: 

Variable$ = FETCHKEY$(No. ae Fichero) 

Que como en anteriores funciones, almacena- 
ra en variables$ el contenido de la ultima cla¬ 
ve utilizada. 

Para borrar una clave del fichero, hay que 
tomar alguna precaution. Si el registro al que 
corresponde esa clave no tiene ademas otra 
clave, es decir, si esta es unica, al borrarla es 
como si borrasemos el registro de datos, da¬ 
do que no tenemos manera de acceder a el. 
Por esto, si solo se desea cambiar una clave 
por otra, es recomendable primero anadir la 
clave nueva (ADDKEY) y luego borrar la ac- 
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tual. Esta se borra a traves de la funcion: 
Variable- DELKEY (No.FicherOjO,position) 

La posicion es optativa. Si no se pone, borra- 
ra la posicion a la aue senale el puntero en 
ese momenta, por lo que si no es esa la que 
se desea borrar, habra que situar el puntero 
previamente en la clave deseada, o bien in- 
vesfigar la posicion de la clave que se quiera 
borrar. Ambas cosas se hacen a traves de las 
funciones de busqueda, que se ven posterior 
msnte. 

Se puede optar entre admitir claves repeti- 
das o no. Si se quiere impedir que el progra 
ma admita claves repetidas, hay que usar la 
funcion RANKSPEC de la siguiente manera: 

Variable — RANKSPEC (No.Fichero,No. 
Clave,0) 

Esta funcion, no aparece explicada en el ma 
nual de instrucciones mas que de una mane¬ 
ra superficial. 


Susqueda de registros 


Daao que ei numero de registro aqui sirve 
para bien poco, el modulo JETSAM propor- 
ciona varias funciones que se encargan de bus- 
car el registro que se desea. El resultado de 
esfas funciones perrnite saber si se ha encon- 
frado otro registro con la misma clave, una cla¬ 
ve distinta denlro del mismo rango, una cla¬ 
ve nueva en distinto rango, o que no se ha en- 
contrado dicha clave. Antes de empezar con 
las instrucciones, hay que entender que solo 
hay un fichero de claves, aunque se dispon- 
ga de varios ranges de indexation. A partir 
de la ultima clave de un rango, empieza ia pri- 
mera clave del siguiente rango, por lo que la 
busqueda en un rango puede dar positiva en 
otro rango distinto. Para este caso el resulta¬ 
do de la funcion NO es el mismo, por lo que 
en todo momento se puede saber donde se ha 


encontrado, y si interesa el registro encontra- 
do o no. 

SEEKKEY busca en el fichero el primer re¬ 
gistro cuya clave sea igual a la dada, dentro 
del rango dado. En el ejemplo, esta en linea 
1340. La forma de esta funcion es: 
varible = SEEKKY(No. Fichero,0,rango,clave. 
Si hay mas registros con identica clave, y se 
quiere seguir con la busqueda, se utilizard 
SEEKNEXT, que sigue recorrienao el fichero 
buscando la misma clave en el mismo rango 
anteriormente dados. En el ejemplo esta en la 
linea 1190 y su forma es: 
variable = SEEKNEXT (No. Fichero,0,posicion 
de busqueda) 

La posicion de busqueda es opcional, de ma¬ 
nera que si no se da buscara en el mismo ran¬ 
go a partir de la posicion a la que senale el 
puntero, y en caso contrario a partir de la po¬ 
sicion que se indique. 

La funcion SEEKPREV es identica a la ante¬ 
rior, pero busca la clave anterior a la indica- 
da. Su sintaxis es tambien identica a la ante¬ 
rior. 

SEEKSET es util en caso de que el fichero de 
indices contenga claves repetidas. Su sintaxis 
es: 

Variable=SEEKSET (No.Fichero,0,posicion de 
busqueda) 

Si hay claves repetidas, esta funcion se salfa 
las claves iguales a la actual, hasta la prime- 
ra clave distinta de estas. 


lectura y escritura 
en el fichero 


Hasta ahora se ha hablado principalmente 
del puntero que sehala al registro. NO se ha 
habiado de como extraer information del fi¬ 
chero, ni como reescribir la misma en un re¬ 
gistro que ya existia. Hay que recorder que 
ADDREC anade un registro despues del ulti¬ 
mo, pero no sirve para modificar datos en re- 






















gistros intermedios, Pues bien, si se ha enien- 
dido lo anterior, esto estd «chupao». Sim- 
plemente se coloca el puntero sehalando al re- 
gistro deseado, y luego si se quiere leer el re- 
gistro, se utiiiza la instruction: 

GET No. a'e fichero 

o si se quiere escribir en ese registro, (una vez 
dados sus valores a los campos del registro me- 
diante LSET, etc...) se utiiiza la instruction; 

PUT No. de fichero 

Como se ve, no hay que poner el numero 
del registro que se desea leer o escribir. Es el 
puntero el que se encarga de indicar cual es 
el registro que se va a leer o escribir. Por io 
tanto, solo hay que ocuparse de que este se- 
fiole al registro que se desea. En el ejemplo, 
las lineas 600, 870, 940 y 1120 realizan esta 
funcion. 


Condusiones 


Las peculiares caracteristicas Je este tipo de 
ficheros, lo hacen especialmente adecuadas 
para programas de gestion. Programas como 
controles de stock, contabilidad, presupuestos, 
etc... sin disponer de ficheros indexados serian 
muy complejos, y excesivamente lentos. El fun- 
cionamiento de este modulo es muy bueno, 
aunaue un tanto complicado. Pero el proble- 
ma es entender su funcionamiento, no hacer 
el programa. Una vez enlendido, cosa que se 
logra con un poco de practice, nuestro hori- 
zonte de programacion se amplia considera- 
blemente. Desgraciadamente solo esta al al- 
cance del PCW y no de los CPC con disco. Pa¬ 
ra estos, se puede simular la indexation, rea- 
lizando a iraves del programa algunas de las 
funciones que hacen estos ficheros. El mayor 
problema sera actualizar el fichero de indices 
cada vez que se modifique el de datos. Es una 
tarea de programacion complicada, pero efec- 
tiva. 

Por ultimo un consejo. Para realizar un buen 
programa con estos ficheros, es necesario te- 
ner las ideas muy claras. Pensar siempre en 
el carnino mas corto, y este suele ser utilizar 
la mayoria de las funciones que J El SAM nos 
proporciona.. Si no se es remiso a la hora de 
utilizarlas, nuestro programa sera un poco mas 
largo, pero mucho mas rapido y eficaz. Y pa¬ 
ra pensar el programa, lapiz y papel. Antes 
de meterse con el ordenaaor, definir clara- 
mente lo que se necesita y como se quiere ha¬ 
cer. Si esto es necesario en practicamente to- 
dos los programas : si manejan este tipo de fi¬ 
cheros es imprescindible. 


istructura del programs 
de ejemplo 


Para demostrar algunas de las funciones que 
se han explicado anteriormente, observese la 
estructura del programa del ejemplo: 


Linea 100: Se establece el numero de tam- 
pones que se van a reservar. 

Linea 120: Se busca en el disco si existen 
el fichero de datos y el de claves. 

Linea 150: Si no existen los ficheros, se 
creon. Se ha optado por darles el mismo nom- 
bre con distinta extension por cuestion de cos- 
tumbre, pero ambos nombres pueden ser di- 
ferentes en todo. 

Linea 160: Se cierra el fichero. Aunque pa¬ 
ra introducir datos no haria falta cerrarlo, co¬ 
mo solo se va a crear el fichero una vez pero 
habra que abrirlo cada vez que se necesite, 
en este caso es necesario cerrrarlo. 

Linea 300: Se abre el fichero. La longiiud 
del registro esta almacenada en la variaale 
Long, en la linea 100. 

Linea 310: Se establecen ia longiiud y el 
nombre de los campos que forman el registro. 
La sumo de la longitud de todos los campos 
es 37, que sumados a los 2 caracteres que ne¬ 
cesita JETSAM para gestionar el fichero, da 
los 39 de la longitud del registro. 

Linea 400: Se almacenan los nuevos valo¬ 
res en las variables mediante LSET. Los nume- 
ros se almacenan empaquetados mediante 

MKI$. 

Linea 430: Se graba el registro, y se verifi- 
ca el resultado de la operacion, mediante 
RDO. El primer rango de claves se establece 
con !os puntos de cada equipo. 

Linea 450: Se averigua el numero del re¬ 
gistro al que senala el puntero mediante 



Linea 950: Se consolidan el fichero de da¬ 
tos y el de claves, quedando listos para intro¬ 
ducir mas resultados. No es necesario hacer- 
lo, pero puede evitar fallos, aunque haga el 
programa un poco mas lento. 

Linea 1100: Buscamos la primera clave del 
primer rango. El puntero queda sehalando a 
esta clave. 

Linea 1120: Se lee el registro al que sena- 
la el puntero. 

Linea 1190: Pone el puntero senalando la 
siguiente clave, y repite el bucle de lectura. 

Linea 1330: Principio de la subrutina de 
busqueda. Situa el puntero sehalando la pri¬ 
mera clave del rango 1. 

Linea 1340: A partir de la position ante¬ 
rior, busca en este rango el data pedido, que 
esta almacenado en la variable NOMBRES. 

Linea 1370: Comienza la subrutina que 
confirma el resuhado de las operaciones. En 
principio presenter esto en pantalla es util pa¬ 
ra saber si funciona correctamente, aunque 
luego se pueda suprimir. 


FETCHREC. 

Linea 460: Utilizando e! dato anterior, se 
establece un nuevo rango usando como cam- 
po de claves el nombre del equipo. 

Linea 810: Se va a la subrutina de busque¬ 
da, para situar el puntero en el registro co- 
rrespondiente al primer equipo. 

Linea 870: Una vez modificados los datos 
del registro, se graba. 

Linea 880: Se va a la subrutina de busque¬ 
da, para situar el puntero en el registro co- 
rrespondiente al segundo equipo. 

Linea 940: Iguai que la linea 870. 


Nota sobre campos 
empaquetados 


La funcion MKI$ transforma un numero en- 
tero en una cadena compacta con una longi¬ 
tud de 2 bytes. Asi se optimize su almacena- 
miento en el disco, ahorrando espacio. Pero 
un numero «empaquefado» no puede ser 
presentado en pantalla, ni se puede operar 
con el. Hay que reconvertirlo, mediante la fun¬ 
cion CVI. 


TicHERO^DEXADoE^J^ 


DAT 


15 


rsoniui>= — ■ ^9 U1 P° 
Parlidos 9 anad ,°; s 
Partidos g anado Vf r ° 
Partidos empatados casa 

Sosempotodos uero 

Partidos perdidos casa 
Partidos perdidos fuera 
Coles a favor en casa 
Goles en contra en cas 
Goles a favor fuera 
Goles en contra fuera 
Puntos totales 


2 


37 


Tipo 

Caracteres 
Empaquetado 

Idem. 

Idem. 

Idem. 

Idem. 

Idem. 

Idem. 

Idem. 

Idem. 

Idem. 

Idem 

caracteres 
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10 '•*****************»****** 

20 ’ MICROHOBBY AMSTRAD 
30 ’ Ficheros Indexados 

40 ’ AMSTRAD PCV 8256 

50 * F.J.B.T. 

60 ***»*mHi*******t*t**tf 

70 •***« INICIALIZACION. 

80 clsS CHRS <27)+"E"+CKRS <27)+"H" 

90 EquipoG=12:NR=INT(equlpos/2) 

100 BUFFERS 6:long 39:DIM cln$(equi 
pos),p (equipos) 

110 PRINT clsS:PRINT:PRINT:PRINT: 
120 aS-FIND$("equipos.dat"):b$ FIND 
S (’’equipos. key" ) 

130 IF a$<>*“' AND b$<>"" THEN 170 
140 ' **** CREACION DE LOS FICHEROS 
150 CREATE 1, "EQUIPOS. DAT","EQUIPOS 
. KEY' 1 ,2,1 ong 
160 CLOSE 1 

170 ’««** MENU PRINCIPAL 
180 PRINT clsS 

190 PRINT:PRINT:PRINT:PRINT:PRINT:P 
RINT TAB<35) ”MENU GENERAL" 

200 PRINT TAB <35>" 

210 PRINT:PRINT TAB <30> " 1.- ALTA 
S Equipos." 

220 PRINT:PRINT TAB (30) " 2.- Intr 
oduccion de Resultados.” 

230 PRINT:PRINT TAB (30) " 3.- Clas 
if icaclon. ’’ 

240 PRINT:PRINT TAB (30) " 4.- Fin 
de Prograraa." 

250 PRINT:PRINT:PRINT TAB (25);:INP 
UT "Seleccione Opcion. :” , Op 
260 IF op<l OR op>4 THEN 180 
270 ON op GOTO 280,520,1010,1300 
280 '**+* OPCION 1 

290 '***+ Apertura Fichero Indexado 

300 OPEN "K",1,"EQUIPOS.DAT","EQUIP 
OS.KEY",2,long 

310 FIELD 1,15 AS NombreS,2 AS PGCS 
,2 AS PGFS.2 AS PECS,2 AS PEFS,2 AS 
PPCS ,2 AS PPF$,2 AS GFCS,2 AS GCCS 
,2 AS GFFS.2 AS GCFS,2 AS PtsS 
320 PRINT clsS 

330 PRINT:PRINT: PRINT: PRINT TAB (30 
) "ALTAS DE EQUIPOS" 

340 PRINT TAB (30) "- 

350 PRINT:PRINT; PRINT TAB (25); : INP 
UT "Norabre. 15 C. : ";norai:nora$=UPP 
ERS (noraS) 

360 IF LEN (noraS> > 12 THEN PRINT: PRIN 
T TAB (25) " Longitud Excesiva": GO 
TO 480 

370 LSET nombre$=nara$ 

380 GOSUB 1320: IF busq=0 THEN PRIN 
T:PRINT TAB (25) "Registro existent 
e": GOTO 480 
390 Da 0 

400 LSET pgci=KKIS(daJ : LSET pgfS=NK 
IS(da):LSET pecS~MKIS<da):LSET pefS 
= MKIS(da) : 

410 LSET ppcS=MKI$(da) : LSET ppf$=MK 
IS (da):LSET gfc$ MKIS(da):LSET gcc$ 
~MKIS(da) : 

420 LSET gff$=KKIS(da) : LSET gcfS=KK 
1$ <da>;LSET ptsS KKIS(da) 

4 30 rdo=ADDREC(1,2,0, ptsS) 

440 GOSUB 1360 

450 numreg-FETCHREC(l) 

460 rdo=ADDKEY(1,0, 1, nombreS, numreg 
) 

470 GOSUB 1360 

480 PRINT: PRINT: PRINT TAB (25);: INP 
UT "iDesea grabar otro registro? (S 
/N).: ",reSireS UPPERS(reS) 

490 IF reS="S" THEN 320 
500 CLOSE 1:GOTO 170 

510 ' ***iH*i*iim»**m*M*u**i* 

520 ' •»*** OPCION 2 

530 OPEN "K",1,"EQUIPOS.DAT"."EQUIP 
OS.KEY”,2,long 

540 OPEN "R",2,"JORNADAS.DAT" , 35 


550 FIELD 1,15 AS NorabreS,2 AS PGCS 
,2 AS PGFS.2 AS PECS,2 AS PEFS,2 AS 
PPCS,2 AS PPFS,2 AS GFCS.2 AS GCCS 
,2 AS GFFS.2 AS GCFS,2 AS PtsS 
560 FIELD 2,1 AS c$,15 AS eqlS.2 AS 
gl$,15 AS eq2S,2 AS g2S 
570 PRINT clsS 

580 PRINT:PRINT:PRINT:PRINT TAB (30 
) "INTRODUCCION DE RESULTADOS" 

590 PRINT: PRINT: PRINT TAB (25).;: INP 
UT " N ! de Jornada..: ’’ , j or 
600 GET 2,(1+<(jor-l)*nr)) 

610 IF cS="*" THEN PRINT TAB (20);: 
INPUT "Jornada con datos. ^Desea re 
introducirlos? (S/N).:",reS:re$=UPP 
ERS <reS) 

620 IF re$="N" THEN 570 
630 FOR x 1 TO nr 
640 PRINT clsS 

650 PRINT: PRINT; PRINT; PRINT TABOO) 
"INTRODUCCION DE RESULTADOS. Jorn 
ada N/ ";j or 

660 PRINT TAB (30) "- 

670 PRINT: PRINT: PRINT TABOO; : INP 
UT "Equipo de Casa. 15 C.:", noralS: 
noralSCUPPERS(nomlS) 

680 PRINT:PRINT TAB (25);: INPUT "G 

oles.:",gol 

690 PRINT:PRINT:PRINT TAB<25);: INP 
UT "Equipo Visitants 15C.:",nora2S:n 
orn2S”UPPER$ (noni2S) 

700 PRINT:PRINT TAB (25);: INPUT ”G 

oles.:",go2 

710 PRINT: PRINT: PRINT: PRINT TABOO) 
INPUT "iCONFORME? (S/N).: ".reS: 
reS-UPPERS(reS) 

720 IF r©S = ,, N" I HEN 64 0 

730 ’ »«* i Actualizar Fichero Direct 

o 

740 LSET c$="»" 

750 LSET nombreS-noralS:GOSUB 1320: 

IF busqOO THEN 990 

760 LSET nombre$ = nom2$: GOSUB 1320: 

IF busqOO THEN 990 

770 LSET eqLS=nomlS:LSET glS=MKI$(g 
ol) 

780 LSET eq2$“nom2S:LSET g2S=MKIS<g 
o2) 

790 PUT 2, <x +((Jor-1)*nr)) 

800 1 «*** Actualizar Fichero Indexa 
do 

810 LSET nombre$ = noralS: GOSUB 1320:G 
ET 1 

820 IF gol>go2 THEN pgc*CVI(pgcS)+1 
:LSET pgcS-MKlS(pgc):pts=CVI<ptsS>+ 
2:LSET ptsS MKIS(pts) 

830 IF gol-go2 THEN pec=CVI(pecS )+1 
:LSET pecS-MKIS(pec):pts~CVI<ptsS)+ 

1:LSET pts$=MKI$(pts) 

840 IF gol<go2 THEN ppc=CVI(ppcS)+1 
:LSET ppcS-MKIS(ppc) 

850 LSET gfc$=MKIS(CVI<gfc$)+gol) 

860 LSET gcc$=MKIS(CVI(gccS)+go2) 

870 PUT 1 

880 LSET nombreS=nom2S:GOSUB 1320:G 
ET 1 

890 IF gol<go2 THEN pgf-CVI<pgfS)+1 
;LSET pgf$=MKI$(pgf):pts-CVI<ptsS)+ 
2:LSET ptsS MKIS(pts) 

900 IF gol=go2 THEN pef-CVI(pefS)+1 
:LSET pef$=MKIS(pef):pts-CVI(ptsS)+ 

1:LSET pts$=MKIS(pts) 

910 IF gol>go2 THEN ppf~CVI(ppf$)+l 
:LSET ppf$=MKIS(ppf) 

920 LSET gffS MKIS(CVI(gffS)+go2) 

930 LSET gcfS=MKI$(CVI(gcfS)+gol) 

940 PUT 1 

950 rdo*CONSOLIDATE <1) 

960 NEXT 

970 CLOSE 2:CLOSE 1: 

980 GOTO 170 

990 PRINT:PRINT:PRINT TAB (25) "Err 
or en norabre de Equipo.":GOTO 640 


1000 * HIMtHilf IUIHM MMIIIfH 

1010 ’t**t OPCION 3 
1020 OPEN "K", 1, "EQUIPOS. DAT"," EQUI | 
POS.KEY".2,long 
1030 FIELD 1,15 AS Norabre$,2 AS PGC 1 
S.2 AS PGFS.2 AS PECS,2 AS PEFS.2 A I 
S PPCS, 2 AS PPFS, 2 AS GFCS,2 AS GCC | 
S.2 AS GFFS.2 AS GCFS,2 AS PtsS 
1040 PRINT clsS 

1050 PRINT:PRINT:PRINT TAB (30) "C 
L A S I F I C A C I O N" 

1060 PRINT TAB (30) ”= = ========= == I 

1070 PRINT "EQUIPO J’JGA 

DOS GANADOS EMFATADOS PERDID0S 
GOL.FAVOR GOL.CONTRA PUNTOS" I 
1060 PRINT "C-Casa. F Fuera 
F C F C F C F 

C F C F" 

1090 PRINT STRINGS(90, ) 

1100 rdo SEEKRANK <1,0,0) 

1110 FOR x 1 TO equipos 
1120 GET 1 

1130 pgc=CVI (pgcS) : pec-=CVI (pecS): pp 
c- CVI(ppcS):pgf“CVI<pgfS):pef-CVH? 
efS):ppf=CVI(ppfS) 

1140 gfc~CVI(gfcS):gcc=CVI(gccS): gi 
f=CVI(gffS):gcf CVI(gcfS):pts-CVI <p 
tsS) 

1150 pJ c = pgc+pec + ppc: pj f = pgf + pef+pt) 
f 

1160 cla$<x)= nombreS+" "+STRS<pjc 
>+" "+STRS(pj f)+" "+STRS(pgc) +" 

"+STRS(pgf)+" "+STRS(pec)+" ” + 

STRS (pef ) +*' 

1170 claS(x) claS(x)+STRS<ppc)+ M 
”+STRS(ppf)+" "+STRS(gfc)+" "*S 

TRS(gf f)+" "+STRS(gcc)+" "+S 

TRS (gcf ) +'* " +STRS (pts) 

1180 p(x> pts 

1190 rdo=SEEKNEXT(1,0) 

1200 NEXT 

1210 FOR x=l TO equipos 

1220 FOR y=x+l TO equipos 

1230 IF p(y><p(x) THEN p2 p(x):bS-c 

laS(x):p(x) p(y) : claS(x)=cla$(y): p< 

y)=p2:claS <y)=b$ 

1240 NEXT y 
1250 NEXT x 

1260 FOR x=equipos TO 1 STEP -1 

1270 PRINT claS <x):NEXT x 

1280 PRINT:PRINT:PRINT:PRINT TAB (3 

4>; : INPUT "Pulse INTRO.";inS 

1290 CLOSE 1:GOTO 180 

1300 •**•* OPCION 4 

1310 CLOSE 1:CLOSE 2: END 

1320 ’«*** SUBRUTINA DE BUSQUEDA. 

1330 inic-SEEKRANK(1,0,1):PRINT "In 

icializacion.: ";Inic 

1340 busq-SEEKKEY(1,0,1,nombreS): PR 

INT "Busqueda.: " ; busq 

1350 RETURN 

1360 ’***• CONFIRMACION DE RESULTAD 
OS. 

1370 IF rdo=0 THEN PRINT:PRINT TAB( 
25)" Operacion Corrects." 

1380 IF rdo=101 THEN PRINT:PRINT TA 
B(25>" Sobrepasado final de claves. 

1390 IF rdo~102 THEN PRINT:PRINT TA 
B<25)" Sobrepasado final de ranges. 

1400 IF rdo=103 THEN PRINT:PRINT TA 
B<25)" Sobrepasada ultima clave." 
1410 IF rdo=105 THEN PRINT:PRINT TA 
B(25)" Clave no enccntrada. " 

1420 FF rdo-ln THEN FEINT: PRINT TA 
B(25)" Posiclon de registro Jndefin 
Ida. " 

1430 IF rdo>129 THEN PRINT:PRINT TA 
B <25)”Error de bloqueo.” 

1440 RETURN 
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SlSTEMAS OPERATIVOS 


Autor: E. Riego 

La CPU controla todos los componentes (recursos) 
del ordenador. Sin ello / el microprocesador 
estaria aislado del mundo exterior, y no serviria, 
por tanto, para nada. Para controlar los recursos 
ffsicos, ha si a mandar a sus interfaces (circuitos 
electronicos intermedios que permiten la 
comunicacion) las secuencias de bytes necesarias 
para lograr los efectos deseados. 



lizar diferenfes tareas y cada una posee una 
codificacion, conocida por la CPU. Por ejem- 
plo para que el programa sea capaz de leer 
un fichero de datos de un disco fiene que or- 
denar al conlrolador del camino que posicio- 
ne la cabeza lectora sobre la cara, pista y sec¬ 
tor adecuados (que el programa debe obte- 
ner de algun modo), y una vez alii leer los 
bytes que se necesiten. Esta operacion se rea- 
liza muchas veces a lo largo de una sesion de 
frabajo con un ordenador. Para la accion an¬ 
terior (y para muchas mas) serfa conveniente 
tener una rutina en codigo maquina a la que 
llamar cada vez que se necesitase. 

ES sistema operativo es un conjunto de pro- 
gramas o rutinas que se ocupan de gestionar 
los recursos y coordinar los sucesos que se pro¬ 
duced en el ordenador. Proveen al programa- 
dor de la mayoria de la herramientas basicas 
para realizar programas sin tener que repetir 
en cada uno las mismas rutinas, 

Inicialmente los ordenadores carectan de sis¬ 
tema operativo, posetan una serie ae clavijas 
que enchufadas en diferentes conectores pro- 
ducian las secuencias de introduciones nece¬ 
sarias para realizar las operaciones que espe- 
cificaba el codigo de un programa. Posterior- 
mente se descubre la actividad de tener siste- 
mas operativos (formados por las rutinas de 
entrada y salida mas basicas) dentro del or¬ 
denador en ROM, accesibles desde cualquier 
programa, sin tener que codificar el mismo 
programa por si mismo. 

Gracias a este cambio las companias de soft¬ 
ware ahorraron mucho tiempo en el desarro- 
llo de productos nuevos, pero seguia sin ser 
una solucion totalmente satisfactoria ya que 


ataba a un ordenador a un sistema particu¬ 
lar, que generalmente solo utilizaba el mismo: 
los ordenadores seguian estando aislados. 

De aqui surgen los sistemas operativos ba- 
sados en disco, que poseen en ROM el codi¬ 
go minimo para cargar cierta parte de la in- 
formacion contenida en un disco y ejecufar- 
la. Asi, el mismo ordenador puede usar dife¬ 
rentes sistemas operativos leyendolos de dis¬ 
co, sin cambiar oara nada la estructura inter¬ 
na del mismo. 

Gracias a estos sistemas operativos, un mis¬ 
mo programa puede funcionar en muchas ma- 
quinas diferentes que corran el mismo sistema 
operativo, sin que las casas creadoras hayan 
tenido que hacerle ningun cambio. Tenemos 
sistemas portables. 

La portabilidad exige una estandarizacion 
en hardware, sobre todo en cuanto al micro¬ 
procesador utilizado; deben ser iguales o com¬ 
patibles en cuanto a su codigo maquina. Aun 
ast no se puede asegurar que dos maquinas 
diferentes corriendo el mismo sistema opera¬ 
tivo puedan usar el mismo programa sin ha- 
ber cambios. Las razones de esta falta de com- 
patibiiidad se deben a varios factores, los fun- 
damentales son que las configuraciones ftsicas 
de las maquinas no son exactamente las mis¬ 
mas o que el sistema operativo del ordenador 
de una de las maquinas incorpora una mejo- 
ra abadida por el fabricante para aumentar 
las prestaciones del mismo, y esta no es con- 
templada por la otra maquina (por ejemplo 
los diferentes formates de disco encontrados 
en eda maquina que funciona bajo control de 
CP/M). 

Los ordenadores domesficos baratos suelen 
disponer del lenguaje Basic en ROM, con un 
sistema operativo mezclado con el mismo co¬ 
digo Basic (podrta decirse que el Basic inclu- 
ye dentro de su codigo las rutinas usuales de 
un sistema operativo), disenado para aprove- 
char al maximo las posibilidades de la maqui- 
na y que, por tanto, serta muy costoso de ile- 
var a otra. 


Sistemas operativos 
actuates 


CP/M 80 fue el primer sistema operativo bo- 
sado en disco para microordenadores boso 
dos en los microprocesadores Z80 , 8030 y 
8085, y el primero de una larga serie de sis¬ 
temas que han aparecido despues, a menu 
do utilizando caracteristicas introducidaspc 
el. 

Debido a sus exigencias hardware solo 
capaz de direccionar 64 Kbytes de memorio 
(aunque la version 3.0 o CP,M/80 tdirecciono 
128 mediante la tecnica de conmutacion ds 
bancos de memoria), por lo que es muy com- 
pacto y solo 8 Kb de memoria central, conte- 
niendo las rutinas esenciales y 6 comandos re- 
sidentes de uso general: DIR, ERA, REN, TYPE. 
SAVE, USER, que sirven para obtener el listo- 
do del directorio, borrar un fichero de disco, 
cambiarle el nombre, visualizarlo en pantallo, 
grabar en disco alguna zona de memorio y 
asignar un numero de usuario, cada uno con 
diferentes ficheros asociados, accesibles solo 
desde el usuario que los creo. 

Estos comandos son resistentes porque per- 
manecen en la memoria todo el tiempo, cual¬ 
quier otra utilidad del sistema operativo o pro¬ 
grama ejecutable permanece en disco como 
fichero. Cada fichero tiene asociado un nom¬ 
bre de 8 letras seguido opcionalmente de un 
punto y una extension de 3 letras mas. Los fi¬ 
cheros ejecutables tienen extension COM. 

Las unidades poseen los nombres A:, B:, G 
D:,... y una referencia completa a un fichero 
incluye la unidad de disco en que permanece 
(es opcional); mas el nombre y extension: A:FI- 
CHERO.DAT es un fichero que esta en el dis¬ 
co A: con nombre FICHERO y extension DAI. 

Al cargar el sistema, aparece el indicodor 
A + (prompt) que nos informa de que siste- 
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ma espera ordenes, manteniendo la unidad de 
disco A: como disco activo o por defecto, en 
la que se realiza cualauier operacion que no 
lo especifique. Para cambiar, B: seguido de 



RETURN establece B: como disco defecto, 
apureciendo el indicador B +-. 

Cualquier cosa que se teclee seguida de RE¬ 
TURN es inierpretada como una orden y el sis- 
tema intenta ejecufarla, mirando primero si es 
un comando interno (y ejecutandoio), buscan- 
do en el disco que se especifica o en el disco 
por defecto un fichero de tipo COM con el 
nombre dado como orden. Si lo encuentra, lo 
cargo en memoria y lo ejecuta, Al acabar el 
proceso, el sistema nos vuelve a ensenar su in¬ 
dicador y permanece en espera a otra orden. 
Cuando una orden no puede ser satisfecha nos 
lo indica mediante un mensaje de error. 

Por ejemplo para obtener el directorio del 
disco B: estando en A: basta escribir DIR B: 
Con TYPE DATOS. TXT visualizamos en pan 
talla el contenido del fichero DATOS. TXT re- 
sidente en el disco dado por defecto. Si fal fi¬ 
chero estaba en B: y el disco activo era A: la 
orden deberia ser TYPE B: DATOS. TXT. 

Existen otros comandos del sistema que es- 
tan en disco, y solo se cargan en memoria 
cuando son necesarios: PIP permite hacer una 
copia de un fichero en el mismo o en otro dis¬ 
co, STAT permite ver el tamaho de cada fiche¬ 
ro y el espacio libre de un disco. FORMAT sir 
ve para rermatear un disco nuevo para utili- 
zarlo con CPM/80. COPY hace una copia de 
un disco en otro. 


Cada fichero lleva asociado dos atributos 
que pueden ser (DIR o SYS) y (R/W o R/O), 
respectivamente para ficheros que aparecen 
en el directorio o que estdn ocultos, y para fi 
cheros sin proteccion contra escritura o con 
proteccion. Para ver y cambiar estos atribu 
tos se usa tambien STAT. 

Una caracterlstica notable es la inclusion de 
los caracteres libres o comodin * y ? El cardc- 
ter * concuerda con cualquier sucesion de ca¬ 
racteres, el ? con cualquier caracter. Dan po- 
tencia a los comandos del sistema. Por ejem¬ 
plo para ver un directorio solo con los fiche¬ 
ros Basic basta escribir DIR*. BAS, para ver 
todos los ficheros ejecutables con nombre de 
3 caracteres DIR ???. COM, y para borrar to- 
dos los ficheros cuyo nombre empiece por CT 
y tengan extension de 3 letras con X en el cen¬ 
tre ERA CT*. ?X?. (Un fichero puede ser bo- 
rrado, solo si su atributo de proteccion es 
R'W). 

Ademds de las uiilidades del sistema, existe 
una gran biblioteca de programas: lenguajes 
de programacion (MBASIC, BASIC80, CBA- 
SIC, PASCAL MT+, FORTRAN 80, COBOL 80, 
TURBO PASCAL, FORTH, ECO C, ADA, PRO¬ 
LOG, MuLISP), procesadores de texto, hojas 
de calculo, bases de datos, programas de co- 
municaciones,... y programas hechos a medi- 
da como facturaciones o coniabilidades. 
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CP/M 80 es simple de usar y aprender, y 
bastante potente dentro de las lirnitaciones im- 
puestas por el hardware en que esta basado. 
Posee una gran biblioteca de programas de 
todo tipo debido a su gran difusion jhasfa hace 
2 anos era el sistema mas usado), capaz de 
satisfacer la mayoria de las necesidades. 

Al surgir los microordenadores de 16 bits 
(con el IBM PC en cabeza), basados en los mi- 
croprocesadores INTEL 8088, 8086 (y poste- 
riormente 80286) se desarrollan nuevos siste- 
mas operatives que inicialmente estdn basa¬ 
dos en CP/M 80, y despues evolucionan para 
aprovechar las posibilidades que brinda un 
hardware mas potente y avanzado. Son CP/M 
86 y MS-DOS (PC DOS). 

Digital Research, creadora de CP/M 80, 
construye una version para 16 bits llamada 
CP/M 86, que de cara al usuario es una repli¬ 
ca casi exacta de lo que era la version ante¬ 
rior. Posferiormente evoluciona hacia la mul¬ 
tiarea en forma de Concurrent CP/M y despues 
PC DOS Concurrente, que mas adelante co- 
mentaremos. 


MS-DOS ... 
el mas extendido 


Microsoft llega a un acuerdo con IBM para 
que su sistema operative MS-DOS sea vendi- 
do junto con el microordenador de la multi¬ 
national, hajo el nombre PC DOS. La prime- 
ra version de MS-DOS recuerda mucho a 
CP/M 80, pues el funcionamiento es andlogo. 
Sin embargo, se nota la potencia de la maqui- 
na en cuanto a velocidad y mayor direccio- 
namiento de memoria: posibiiidad de construir 
programas muy extensos. Gracias a la amplio 
difusion del IBM PC, MS-DOS se ha converti- 
do en el sistema operative mas utilizaao. 

A partir de la version 2.00 Microsoft, em- 
pieza a introducir en MS DOS (PC-DOS) ca- 
racteristicas provenientes de UNIX, sistema 
multiusuario multiarea para miniordenadores, 
con el fin de lograr que las ultimas versiones 
de MS-DOS sean compatibles con XENIX, unc 
version de UNIX de Microsoft. Lo mas relevan 
te es: estructura jerarquizaaa de los ficheros 
en forma de arbol, redireccion de entradas y 
salidas y filtros (pipes). 

La estructura jerarquizada de ficheros per- 
mite la existencia de ficheros especiales liama- 
dos subdirectories que son a su vez iistas de 
ficheros, algunos de los cuales puede ser tam- 
bien un subdirectorio, y asi sin limite. Lo que 
tenemos es una estructura arborescente inver- 
tida, con la raiz (denominada ) en la par¬ 
te superior. Los subdirectorios de un directo- 
rio son sus «hijos», mientras que el es el «pa- 
dre». 

Gracias a esta estructura es posible hacer 
agrupaciones logicas entre ficheros que com- 
parfan unas caracteristicas, por ejemplo con- 
viene tener juntos todas las utilidades del sis¬ 
tema, todos los programas de un lenguaje de 


programacion, documentos escritos con un 
procesador de textos,... Tambien cuando va¬ 
ries personas utilizan el mismo disco se pue- 
den separar los ficheros que utilizan ambas. 

Es particularmente util al utilizar un disco du 
ro en el que pueden caber cientos de ficheros. 

Existen varios comandos para manipular di¬ 
rectories. MKD1R o MD construye un nuevo 
subdirectorio, hijo del directorio en el que es- 
tamos situaaos. CHDIR o CD nos informa del 
subdirectorio en que nos encontramos y tam¬ 
bien nos permite trasladarnos a otro diferen- 
te, especificando la cadena de directories (se- 
parados por el caracter ^) que hay que re¬ 
cover desde la raiz (o desde el mismo) para 
llegar el directorio deseado, tecnicamente el 
«pathname». RMDIR o RD elimina un sub 
directorio siempre que dentro de el no exista 
ningun fichero. 

Cuando un programa necesita datos y cuan¬ 
do los imprime lo suele hacer en la consola. 
MS-DOS permite redireccionar las entradas y 
saiidas, o sea hacer que un programa obten- 
ga su entrada de otro sitio que no sea el es- 
tandar, y que imprima sus resultados en otro 
dispositivo de salida que no sea el estdndar. 
Generalmente se suelen usar ficheros, aunque 
pueden ser impresoras u otros dispositivos. Se 
usa el caracter« < » para la entrada y « + » 
para la salida. Como ejemplo TYPE DA- 
t0S.TXT + PRN y TYPE DATOS.TXT + FICH 
imprimen respeetivamente el fichero DA¬ 
TOS.TXT en la impresora, y en un fichero de 
disco de nombre FICH. 

Si tenemos un programa ejecutable de nom¬ 
bre PROG.COM, ios comandos PROG < 
FICH.ENT, PROG + FICH.SAL, y PROG < 
FICH, ENT + FICH.SAL hardn que PROG to¬ 
me la entrada del fichero FICH + EN I y Ne¬ 
ve la salido a la pantalla en el primer caso, 
tome la entrada de la consola y lleve la sali¬ 
da a FICH.SAL en el segundo, y tome la en¬ 
trada de FICH.ENT y lleve la salida a 
FICH.SAL en el tercero. 

Los filtros son programas que aceptan una 
entrada, realizan alguna operacion con ellc 
y producen una salida. Se pueden encadenar 
(unidos con el caracter «l») varios filtros (((pi¬ 
pelines) de modo que la salida de cada uno 
alimente la entrada del siguiente. En MS-DOS 
hay 3 filtros. MORE escribe la entrada en pan- 
talla haciendo pausas entre cada pantalla. 
FIND escribe en la salida las lineas de la en¬ 
trada que contenian un cierto fragmento de 
texto. SORT escribe la salida oraenaaa. El co 
mando DIR I FIND «,BAT» I SOR T + FICH 
crea un fichero de nombre FICH conteniendo 
una lisia ordenoda de todos los ficheros del 
directorio cuya extension sea BAT. 

Gracias a la potencia del software se han 
impiementaao sistemas multiusuario y multia¬ 
rea. Un sistema multiusuario es aquel que da 
servicio a varios usuarios simultaneamente 
compartiendo sus recursos entre aquellos. Si 
es multiarea cada usuario (puede ser multia¬ 
rea monousuario) puede realizar varios tra- 
bajos a la vez. La simultaneidad solo se con- 



sigue con varios procesadores, cuando so: 
hay uno se Simula repartiendo el tiempol 
procesaaor entre las tareas o usuarsos asig 
nandoles a cada una prioridad. El paso deuro 
tarea a otra se suele realizar tan rapidamen 
te que se consigue la sensacion de parole >■ 
mo. 

CCP/M (Concurrent CP/M) y su ultima w- , 
sion PC DOS Concurrent (version del anterior 
ejecutan hasta 4 tareas a la vez, cada una de 
ellas induida dentro de lo que se conoce co- 
mo «consola virtual®. Pasar de una tarea a otro 
equivale a cambiar de consola virtual, apa- 
reciendo en pantalla la ejecucion del progro 
ma de tal consola. Mientras este se ejecutaJefi 
foreground), los demas procesos siguen suck- 
so (en background). CCP/M es compatible cor 
CP/M 86 y con la mayoria de los programas 
escritos bajo PC DOS. Permite como todo sis¬ 
tema multiarea, proteger ficheros para ser 
compartidos entre usuarios o procesos del mis¬ 
mo usuario, establecer prioridades y crear unc 
ventana en pantalla (para cada consola vr- 
tual), que presenta information sobre el pro 
ceso asociado, cuando se activa la consola ri¬ 
tual del mismo. 


Un lenguaje 
para un sistema ... 
jy vieeversal 


Unix es un sistema operativo multiusuario 
multiarea de miniordenadores, (existen varios 
versiones para IBM PC), incorpora una estruc¬ 
tura jerarquizada de ficheros en forma de of 
doI invertiao, introduce reconduccion de en¬ 
tradas y salidas y la exis'encia de pipelines, 
poseyendo multiples filtros, un sofisticado sis¬ 
tema de comparticion/proteccion de ficheros 
dando los derechos de acceso a un fichero pa¬ 
ra el mismo usuario, usuarios de un grupo, y 
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para el resto de los usuarios. Posee mas de 200 
utiliaades, entre las que se suelen incluir un 
compilador de C y de FORTRAN 77, que son 
una gran fuente de ayuda para el programa- 
dor. 

Unix esta muy ligado al lenguaje C, ya que 
de las 13000 iineas de codigo, unas 800 se es- 
cribieron en ensamblaaor para satisfacer las 
necesidades de mas bajo nivel, el resto se es- 
cribioen C, al igua! que la mayoria de las uti- 
lidades. 

Unix demuestra que hasta un sistema ope- 
rorivo puede escribirse con un lenguaje de re 
lativo alto nivel coma C. Gracias a esto es muy 
facil transporter un sistema Unix a una mdqui 
na nueva. 


Cuando se accede al sistema entra en fun- 
cionamiento un programa llamado Shell, que 
es el encargaao de reconocer las ordenes emi 
tidas, ejecufando los comandos. 

Tambien permite al usuario escribir progra- 
mas en un lenguaje estructurado propio de 
gran potencia y flexibilidad. 

La multiarea hace que los programas corran 
mas lentamente que si se ejecutaran individual 
mente, pero proporcionan otras ventajas. 
Aprovecha los tiempos muerlos en espera de 
datos o en entradas y salidas a dispositivos, 
y siempre esta a disposition del usuario. 

El usuario nunca tiene que esperar a que fi 
nalice un proceso para poder reaiizar o*ra co- 
sa, la maquina esta dispomble en cualquier 
momento. La concurrencia se adapta mejor 
a la forma de irabujar del hombre, el ejem- 
plo tipico es el programador que simultdnea- 
mente compila un programa, imprime el fiche- 
ro fuente y hace modiflcaciones en el mismo. 
Caaa tarea ira lenta que ejecutada par sepa- 
rado, pero la ventaja de proceder asi es evi- 
dente. 

El sistema operativo del Macintosh se dife- 
rencia de los sistemas anteriores en el interfa¬ 
ce con el usuario, que no se reladona con pro- 
cedimientos sino con objetos, represeniados 
grdficamente en la pantalla del ordenador me- 
diante «iconos», que son manejados con un ra¬ 
ton y cuya imagen guarda relacion con la 
operacion que realiza. Asi, en vez de tener que 
recordar una larga serie de comandos con una 
sintaxis a veces compleja en el Macintosh so¬ 
lo se debe mirar la pantalla, elegir el icono que 
represente la acciont a reaiizar y seleccionar- 
lo con el raton. El usuario se concentra en la 
tareo que esta hacienda y no en los pasos que 
debe seguir para realizarla. Para borrar un 
fichero, basta senalarlo con la flecha (movien- 



do el raton), pulsar el boton del raton, y sin 
soltarlo trasladarlo al icono que representa la 
papelera. 

Al encender el equipo aparece en pantalla 
una boca de disco indicando que se debe in- 
trodudr alguno. Despues aparece dibujado un 
disco y un menu de opciones. Mediante el ra¬ 
ton podemos poner la flecha sobre una opcion 
y aparece una ventana con una lista de ac- 
ciones posibles. Para seleccianar un disco se 
ileva la flecha encima de su icono y se pulsa 
el boton del raton entonces se ilumina el ico¬ 
no del disco indicando que la accion ha sido 
comprendida y realizada. Moviendo la flecha 
al menu de opciones y seleccionando FILE 
apretana'o el boton sin soltarlo, aparecera una 
lista de acciones relacionadas con el manejo 
de ficheros. Para elegir OPEN ponemos enci¬ 
ma la flecha y soltamos el boton del raton, asi 
aparece un directorio con los ficheros que con¬ 
vene el disco, cada uno representado con un 
icono alusivo y su nombre debaio. Si seleccio- 
namos un fichero de texto, el Macintosh piensa 
que lo queremos editor y cargo su procesa- 
dor de textos Mac Write y el fichero seleccio- 
nado. Apuntando a un fichero ejecutable se 
inicia la ejecueion del mismo. 

El sistema operativo incluye todo el mate¬ 
rial necesario para desarrollar el software que 
permita utiiizar todo el entorno grafico, des- 
de el manejo de ventanas hasta un surtido jue- 
go de tipos (y tamanos) de letra. 


Tras las huellas 
de Mac 


Digital Research ha creado GEM un entor¬ 
no operativo que rod'ea a MS-DOS y sirve de 
interface con el usuario al estilo Macintosh, eli- 
minando la necesidad de teclear los coman- 
aos habituales del sistema, mediante el uso de 
ventanas e iconos. Tan similar es este entorno 
al del Macintosh, que GEM ha sido redisena- 
do para evitar problemas legales con Apple 
Computer dueha del sistema del Macintosh. 

Tambien existen versiones de GEM para los 
nuevos ordenadores ATARI ST y AMIGA, que 
nuevamente actuan como recubrimientos del 
verdadero sistema operativo. Hay que obser- 
var que si un programa no ha sido disenado 
para trabajar con GEM, aunque pueda ser 
ejecutado desde este, se comporfard como 
siempre. 

El uso de iconos, ventanas y ratones se po¬ 
pularize hace dos arios gracias a la difusion 
del Macintosh, pero tienen mas de diez arios 
de vida, y se remontan a los trabajos realiza- 
dos par la companfa RANK XEROX (a su vez 
inspirados en estudios teoricos) que los imple- 
menfo por primera vez en su ordenador STAR, 
muy avanzado para su epoca. De aqui surge 
tambien el lenguaje de programacion orien 
tada al objeto SMALLTALK, que utilize profu- 
samente ventanas, iconos y raton. 
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AMSTBAD CPC - 
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AMSTW 


1 SERIE CPC 


AMSTRAD CPC 464 



UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A 64K RAM 
ampliables - 32K ROM ampliables 

• TECLADO • Teclado profesional con 
74 teclas en 3 bioques - Ilasta 32 teclas 
programables • Teclado redefinible 

• PANTALLA • Monitor RGB verde (12") 
o color (14") 



Normal 

Alta Res. 

Multicolor 

Coi X linear. 

i 7 2 : 

x - % 

1' x 25 

Galores 

4 27 

o < ’7 

IP *27' 

Puntos 

I 320 X 2C0 

640 X 200. 

160 X 2 


- Se pueden aefimr nasta 8 ventanas de 
lexto y 1 de graficos • SONIDO 

• 3 canales de 8 octavas modulaaas 
independientemente - Altavoz interno 
regulable - Salida estereo • BASIC 

• Locomonve BASIC ampliado en ROM - 
Incluye los comandos AFTER y EVERY 
para control de intermpdones 


CASSETTE • Cassette incorporada con 
velocidad de grabacion (15 2 Kbaadios) 
controlada desde Basic • CONECTORES 

* Bus FCB multiuso, Uftidad de Disco 
exterior, paralelo Centronics, salida 
estereo, joystick, lapis optico, etc, 

• SUMINISTRO • Ordefiador con monitor 
verde o color - 8 cassettes con 
programas - Libro' Guia de Referenda 
BASIC para el programaaor” - Manual en 
castellano - Garantia Oficial AMSTRAD 
ESPANA. 


TODO POR 


59.900 Pts. (mo nitor verde'i 

90.900 Pts. m jr) 


AMSTRAD CPC 6128 


UNIDAD DE DISCO • Unidad 
incorporada para disco de 3” con 180K 
por cara • SISTEMAS OPERAT1VOS 

• AMSDOS, CP/M 2,2, CP M Plus (8.0} 

• CONECTORES • Bus PCB multius 
paralelo Centronics, cassette exterior 
2. a Umaad de Disco, salida estereo, 
joysticks, lapiz optico, etc, 

• SUMINISTRO • Ordenador con monitoi 
verde o color - Disco con CP M 2.2 y 
lenguaje DR. LOGO Disco con CP M 
Plus y etilidades ■ Disco con 6 program^ 
de obsequio ■ Manual en castellano 
Garantia Oficial AMSTRAD ESPANA 


TODO POR 


J4.9Q0 Pts, (monitor verden 
119.900Ptsl (monitor coloflj | 































PC W-8256 


AMSTRAD CPC-6128 




AMSTRAD PCW 8256 


TODO POR 129.900 Pts 


Centronics • SUMINISTRO • Ordenador 
completo con teclado, pantalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript. CP/M 
Plus, Mallard, BASIC, DR, LOGO ydiversas 
utiiidades - Manuales en Castellano - 
Garantia Oficial AMSTRAD ESPANA. 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A 2E6K RAM de 
las que 112K se utilisan como disco RAM 

• TECLADO • Teclado profesional en 
casteliano (n, acemo.,,) de 82 teclas 

• PANTALLA • Monitor verde de alia 
resolucion 90 coluranas x 32 lineas de 
texto ‘ UNIDAD DE DISCO • Disco de 

y 173K por cara - Opaonalmente, 

Unidad de Disco ae 1 Mbyte integrable 

• SISTEMA OPERATIVO • CP M Pius 
a Digital Research • IMPRESORA • 

:ta calidad (NLQ) a 20 c.p.s. Calidad 

estandar a 90 c.p.s. Papel continuo u 
ojas suelias - Almeacion automatics del 
pape! - Caracteres normales, 
ompnmidos, expandidos, control del 
aso de letra (normal, cursiva, negrita, 
bmdices, superlndices, subrayado.etc). 

• OPCIONES «Kii de Ampiiacson a 
i '.2K RAM y 2.- Unidad de Disco - 
interface Serie RS 232C paralelo 


Existe tambien la version PCW 8512 con 
512K RAM y la 2.’ Un idad de Disco de 
1 Mbyte mcorPorada ii’IJBlfrJWIilTfli 
* El PCW 8256 puede utilizarse como 
terminal y en comunieaciones, 

El I.V.A. no esta induido en ios precios, 

NOTA: Es muy important verificar la garantia del 
aparato ya que solo AMSTRAD ESPAftA puede 
garaatizarle la ordenada reparation y sobre todo 
matenales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos). 

n nnfcnrpm n m esbwv 


Avd*. dal Medlterr«n*o, 9. Tali. 433 45 48 - 413 4816. 
28C91 MADRID 

Magac.fr Cutalw u Tanagfraa, 110 - Tel. 32S19 58. 
08015 BARCELONA 


Los preshgiosos paquetes ae 

Soft..are Profesional en :: ratc 
A: :s::-.-.I . a “precios AMSTRAD' 











j NOMOS 


■ 


iConoces a David el gnomo?, si, pues sus 
simpaticos amigos han venido a /gar con 
nosotros con su arbolito de frutas. Se debe 
recoger tod as entre ellos y tu, pero ten cuidado 
de no recoger la ultima, porque si no habras 
perdido. Demuestrales que eres mas habii que 

ellos. 


ste programa cons- 
tituye un juego inteligente, durante 
el cual debemos enfrentarnos a un 
duendecillo que controla el ardena- 
dor, o bien a un jugador humano. 

Se trata de una version modifica- 
da del juego del Nim, en pantalla 
apareceran una serie de vegetales 
comestibles, algunos crecen sobre un 
arbol, y otros del suelo. 

Cada jugador debera elegir por 
turno que tipo de vegetal desea eli 
minor de entre los cinco posibles 
(manzanas, peras, hojas, cerezas, 
setas), asi como la cantidad a supri- 
mir. 

En cada turno solo esta permitido 
eliminar un tipo, es decir, podemos 
suprimir si queremos 4 hojas o 3 
manzanas, o 2 peras, pero nunca 2 
hojas y 3 manzanas en la misma ju- 
gada, por ejemplo. 

El jugador que elimine el ultimo de 
los vegetales que quede en la pan¬ 
talla, pierde automaticamente la 
partida. 

Ejemplo: Si en pantalla hay 3 ce¬ 
rezas y ningun vegetal mas, yo eli- 
minaria 2 cerezas, mi contrincante se 
vena obligado a eliminar la ultima 
que quedara y yo ganaria la parti 
da, 

Ejemplo: Si en pantalla quedan 3 
manzanas v una seta, yo suprimiria 


las 3 manzanas, mi contrincante se 
encontraria con que solo puede eli¬ 
minar la seta que resta y yo ganaria 
la partida. 

Instruceiones de manejo 

Al principio se presentan dos op- 
ciones. 

A Un jugador (es decir humano 
contra maquina). 

B Dos jugadores (dos humanos se 
enfrentan entre si). 

Si escogemos la opcion A, debe 
mos decic'ir contra que duende de los 
cinco que se nos presentan nos en 
frentaremos. Para ello basta pulsar 
el digito correspondiente. 

Mientras mas alto sea el numero 
del duende escogido mayor sera la 
dificultad. 

Una vez impresa la pantalla co¬ 
rrespondiente debemos proceder 
asi. 

— Seleccionar uno de los vegeta¬ 
les median ie la teda espacio. 

— Teclear una cifra, el ordenador 
entendera que corresponde a la can¬ 
tidad de unidades a eliminar del ve¬ 
getal seleccionado. 

— Pulsar intro para ejecutar la ju- 
gada. 


Estructura 
del programa 


Rutina 1. Lmeas 10-640 

Asigna colores a plumas y borde. 
Define ventanas 1 y 2. Dimensiona 



POR FAVOR 
EL NUMERO DE 




Hi 

1.SIMPLON 

2 . TONTj 


/ 
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\ m 

* * 
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variables. Define caracteres graficos. 
Asigna valores a variables de cade- 
na. Asigna valores a variables me- 
diante sentencias data. 


Rutina 2. Lineas 650*1080 

Presentacion del juego. Impresion 
del menu. Se establece numero de ju- 
gadores. Nombre de jugadores. Im 
presion. Se define grado de dificul 
tad. 


Rufina 3. Lmeas 1090*1290. 

El ordenador decide al azar quien 
comienza. Realization del dibujo de 
drbol y gnomo. Paso a subrutina n.° 
4 para dibujar setas. 


Rufina 4. Lmeas 1300*1410 

imprime mediante un bucle los ve- 
getales que cuelgan del arbol. Pul- 
sando una tecla paso a rutina n.° 5. 


Rufina 5. Lineas 1420*1550 

Bucle principal del juego. Imprime 
en pantalla nombre del jugador en 
turno. Si le toca furno a humano pa 
sa a subrutina n.° 1. Si es turno de 
ordenador paso a subrutina n.° 2. Si 
acaba la partida remite a rutina 2 
tras imprimir nombre del ganador. 


Subrutina 1. Lineas 1560-1780 

Establece la jugada de humano. 
Imprime en ventana grafica el vege¬ 
tal elegido y la cantidad a suprimir 
del mismo. Si la jugada es factible, 
pasa a subrutina 3. Vuelta al bucle 
principal. 


Subrutina 2. Lineas 1790-2110 

El ordenador establece la jugada 
a realizar. Una vez elegida la juga¬ 
da pasa a subrutina 3. Vuelta a bu¬ 
cle principal. 

Subrutina 3. Lineas 2120-2340 

Realiza las jugadas de las subruti- 
nas 1 6 2. Sigue las instrucciones de 
las subrutinas citadas. Explosionan- 
do y borrando los vegetales escogi- 
dos. 


Subrutina 4. Lineas 2350-2430 

Realiza el dibujo de una seta. De- 
pendiendo del valor de la variable 
CO, retorna a rutina 3 o A subrufi- 
na 1. 


Lista de variables 
principals 


PRO: Numero de jugadores huma 
nos (1 6 2). 

COM: Grado de complejidad del 
juego (1 a 5). 

JA: Su valor indica a quien corres- 
ponde el turno de juego fl a 2). 

ME: Durante el desarrollo de la 
partida indica que tipo de vegetal 
debe suprsmirse en la pantalla, tan 
to si juega humano como maquina. 



D: Especifica el numero de unida- 
des a explosionar y retirar de pan¬ 
talla del vegetal especificado por la 
variable ME. 

NU(n): Son 22 variables que indi 
can el tipo de fruta que existe en ca 
da pasicion del drbol al comenzar la 
partida. 

CU (n): Son 5 variables que indican 
la cantidad total de cada vegetal que 
existe en pantalla en ese momenta. 

Cu (1)... Cantidad de hojas. 

Cu (2)... Cantidad de peras. 

Cu (3)... Cantidad de manzanas. 

Cu (4)... Cantidad de cerezas. 

Cu (5)... Cantidad de setas. 


Otras variables 

_ 


ti: Indica la tinta a usar para impri¬ 
mir los caracteres graficos. 
e: Especifica tamaho de la seta. 
CLAVE: N os informa de si el orde¬ 
nador encontro ya una jugada co- 
rrecta, o debe seguirla buscando. 
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0 y H: Se utilizan para establecer 
un bucle que es el encargado de bo ■ 
rrar las setas. 

e(n): Similar a cu (n), pero la utili- 
za la maquina cuando se juega con 
tra ella para calcular la jugada co 
rrecta. 

JU$ (n): Contienen nombre juga 
dores humanos. 

GNO$ (N): Contienen los nombres 
de los cinco gnomos. 

Bl $, p$ (n) y p (n) : La primera es 



similar A e (n) pero en binario, p$ (n) 
son los sucesivos dfgitos de BI $ (n), 
p (n) = VAL p$ (n). 

SUM: Al macena el valor de e 
(l) + e (2)-he (3) + e (4) + e (5). 

b$ (n): Esta variable almacena el 
valor de las letras de JU$ (n). 


Variables relacionadas 
con los grdficos 

Pe$ Ra$ Man$ Za$ Ce$ Re$ Ho$ 
Ja$ Ex$ plo$. Contienen los carac- 
teres definidos para imprimir pera, 
manzana, hoja, cereza y hacer el 
efecto de explosion respectivamente. 

Ar (n) y Bol (n). Almacenan las 
coordenadas de los 227 puntos que 
se utilizan para imprimir el arbol. 

Se (n), Ta (n), Gno (n) y Mo (n) son 
similares a las anteriores pero sirven 
para dibujar la seta y el gnomo res¬ 
pectivamente. 

Si (n) Tio (n). Especifican la fila y 
columna donde se deben imprimir los 
22 vegetales que cuelgan del arbol. 



10 SYMBOL AFTER 200 

20 INK 0,15s INK 1,3: INK 2,23: INK 
3,9:PAPER 2: CLS: BORDER 23 
30 WINDOW #2,1,6,3,6 
40 WINDOW #1,1,21,1,1 
50 DIM ar <227): DIM bol(227) 

60 DIM se < 23): DIM ta<23) 

70 DIM gno <54) : DIM mo(54) 

BO DIM si <22) : DIM tio<22) 

90 DIM hon(4): DIM nu<22) 

100 DIM cu <5) : DIM jut (2): DIM gno*<5 
) 

110 DIM bi*(5): DIM p*(5): D.IM p<5) 

: DIM e(5):DIM b*(11> 

120 SYMBOL 200,1,1,3,3 ,7,7,7,15 
130 SYMBOL 201,0,0,192,i92,224,224, 
224,240 

140 SYMBOL 202,31,63,127,127,127,12 
7,63,30 

150 SYMBOL 203,240,248,252,252,252, 

252.248.112 

160 SYMBOL 204,14,3,0,0,6,31,127,12 

7 

170 SYMBOL 205,28,56,176,64,112,248 
,252,254 

180 SYMBOL 206,255,255,255,255,127, 
127,63,14 

190 SYMBOL 207,255,255,255,255,255, 

254.252.112 

200 SYMBOL 208,2,2,2,3,4,4,8,16 
210 SYMBOL 209.0,0,0,0,128,64,32,16 
220 SYMBOL 210,16,56,124,254,254,25 
4,124,56 

230 SYMBOL 211,1,63,127,255,63,63,1 

27.255 

240 5YMB0L 212,128,252,254,255,252, 

252.254.255 

250 SYMBOL 213,255,255,7,7,7,3,1,1 
260 SYMBOL 214,255,255,224,224,224, 
192,128,128 

270 SYMBOL 215,2,130.64,12,156,73,1 
, 28 

280 SYMBOL 216,8,16,33,0,132,144,15 

2 , 88 

290 SYMBOL 217,12,26,0,32,2,128,8,0 
300 SYMBOL 218,16,0,228,98,1,64,64, 

0 

310 pe»*=CHR*<200)+CHR*(201): ra*=CH 
R*(202)+CHR*<203) 

320 man*~CHR*(204)+CHR*(205): 2 a*-C 
HR*<206)+CHR* < 207) 

330 ce*=CHR*(708)+CHR*(209):re*=CHR 
*(210)+CHR*<210) 

340 ho*«CHR* <211)+CHR*(212): ja*« 
CHR*(213)+CHR*(214) 

350 ex*=CHR*(215)+ CHR*(216) 

360 p1o*=CHR*(217)+ CHR* <218) 

370 gno* < 1) "SIMPLON" i gno* (2) «=”TONT 
ILLO":gno*(3)="LISTORRO":gno*(4)■ "M 
FMORI ON":gno*(5) "SAB10ND0" 

380 FOR n* 1 TO 227 
390 READ ar (n),bol <n) 

400 NFXT n 

410 DATA 262,30,262,60,260,90,250,1 

10.241.96.250.110.220.110.210.105.1 

80.105.177.96.180.105.160.102.150.1 
00,130,95,120,100,110,100,100,115,8 
0,120,81,112,80,120,56,130,110,122, 
130,105,150.110,128,12B,110,145,87, 

152.85.165.100.160 

420 DATA 130,140, 140, 130,170, 1 IB,20 

0.120.240,130,250,145,240,155 

430 DATA 200,165,175,180,177,160,17 

5.180.150.200.120.210.129.192.120.2 

10.95.230.70.225.70.230.65.224.70.2 

30.100.236.130.220.160 

440 DATA 200,190,180,220,174,240,17 
0,236.190,230,235,215,250,209,240,2 
15,250,190,262,175,270,177,256,175, 
270,150,275,120,295,129,272,120,295 
,120,305,130,300,175,275,200,268,23 
5,250,235,280,240,290,225,325 
450 DATA 210,330,190,335,170,335,17 
7,320,170,335, 170,338,200,340,220, 
335,230,325,250,290,245,250,245,220 
,250,210,250,180,255,170,270,150,28 
0,145,285,180,282,220,280,240,270,2 

60.272.280.290.325.285.340.280.360, 

270.370.257.352.270.370.285.360, 295 
, 330 


460 DATA 320,350,340.35S.350. 365, 
5,360,369,352,365,360,340,345,315. 

40 

470 DATA 300 , 320,290,300.280,270; 

5 . 220 , 295. 180 , 300, 200. 300, 240, 295,.' | 
50 . 300.270.310,290,330,305, 350, 310, 
375,305, 350, 300 , 337,299, 337 , 2B8, 33’ 
,299,320,290,305 , 260, 31 0,200, 3 15," 
O, 530. 240, 350,250,370, 265, 3?O t 2?5| 
00 , 280,415, 300, 420, 320 ,430 , 340 
480 DATA 450 , 350 , 450,34 6, 430, 330,13 
5, 300, 400.270, 430, 280, 440.280,460,. 
90 , 4 75,293 , 4 90 , 290,500,280. 470, 
465.272,470.282, 450,275, 430.270,4* 

, 264.401,256 , 4 00 , 264 , 390,260, 370, 
0,340,230,330,215,325. 190,330, 170,3 
50. 165, 380. 180, 388, 180, 420, 195 
490 DATA 4 40 , 205 , 4 60 , 2 1 8, 480, 230,4’ 
0.245,510, 250 , 530,252,540,254 , 545,3 

50, 530,245,510. 245,490,230,492,208, 

490, 230,470,210,465, 192, 470,210,4' 
.200.4 20, 185 . 4 00, 170 , 390, 160,365.1 
0,390, 140,410, 137,430, 125 
500 DATA 455.128,480,125,510,128,5“ 
0. 130,550, 135,560, 135,570, 130,570,1 
25.555, 123,540, 120,530, 118,529,112; 
530 , 1 18,500, 120,470, 1 10,465,96,470 
lid. 45,0, 1 13,430, I 17,401 , I 15,401 ,1b 
401 .1 15.390. 120. 370, 125, 369, 112,£ 

, 125,35,0. 130,340, 1 25.325.90.325.?*j 
350 , 0 

510 FOR k=1 TO 22 
520 READ 51 <x) : READ tio(x) 

530 NEXT x 
540 DATA 33,19,29,20, 25, 20, 27, 19, aj 
, 19, 1 1.20, 15.20,5, 19, 11 , 16,8, 14,4,1 
2. 13, 11, 1 1 , 10.8,9, 1 1 ,6, 16, 4, 23, 1,fl 
,8,29,9,23, 10,29,14,31,13 
550 FOR -.1 = 1 TO 23 
560 READ se(x),ta(x) 

570 NEXT x 

580 DATA 3, 10,2, 10, 10,0,-10,0, -Sj Oj 
-5. 2. -10,3, 1 ,5,4.10,5,5,5, 3, 10,2, H 
, -7.5,. -3,5. -5, 4, -10, 1 , -5, -10,-3, -j. 
-2, -5,0,2, -10, 3, -10,-20,0 
5,90 FOR n 1 TO 54 
600 READ gno(n), *no<n) 

610 NEXT n 

620 DATA -12.-48, 12,4,—12,-4,-2, !IJ 


,-6,8,-4,6,2,-6,-2 


-8, 4,2,-6, 4, lfl. 


8.-4,-8.4, 4,10. -6,-14,4, 8,14,-2. 
14,2. -2, -12, 4,0, 12,0, -12,0,4, -10,0, 
-8,-2.-6,10.0,0,24 

630 DATA 0,-24,10,0,-2,6,0,8,4, lJ 
12.0. 12,0,4,0. -2, 12, -14,-2, 14,2.4.0 
,-6,1 4, -4, -10, -8,-4,8, 4,4, 10,2,6. S 

,-4,-6, 2, 6 , -2,8.4,0,6.-2,6, = 12,4,1 

,4.-12,48 

640 hon (1) 136: hor. (2) = 16B:, hon(3' 

*200:hon (4)-232 

650 ju*U >■" ju* (2) - ”” 

660 FOR n=100 TO 500 STEP 100 


670 MOVE n,200 

680 FOR x-1 TO 54 

690 DRAWR gno(x) ,<no(x) 

700 NEXT x 

710 MOVER 0,-10:FILL 1:MOVER 
FILL O: MOVER 0,-20:FILL 3: MOVER O' 
,-10: FILL 3 

720 PLOT n-5,150:DRAWR 2,0: PLOT r+ 
4,150: DRAWR 3,0 
730 NEXT n 

740 LOCATE 10,2: PRINT "MENU" 

750 LOCATE 10,4:PRINT "A,... UN JUGfl 
DOR" 

760 LOCATE 10,5: PRINT "B-DOS JUF 

ADORES": CLEAR INPUT 

770 a*^INKEY*:a*-UPPER* (a*) 

780 IF a*<>"A" AND a*<>"B" THEN K: 
TO 770 

790 IF a*-"A" THEN pro-1: LOCATE 5. 
4:PRINT STRING*<2,143) 

800 IF a*=“B" THEN pro-2: LOCATE 5, 
5:PRINT STRING*<2,143) 

810 FOR n*l TO pro 

820 FOR 2 = 1 TO 11: b*(z)-" ":NEXT z 
830 1 

840 LOCATE 5,7:PRINT "NOMBRE JUGADO 


R" 5 n 
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850 LOCATE 5,9:PRINT STRING*<9,127) 
860 a$-INKEY*:IF a*-"” THEN GOTO 86 
0 

870 IF INKEY( 6) =0 THEN GOTO 940 
990 !F INKEY < 794-0 AND wM THEN x=» 
x-1 :b*(x+l)-" "-.LOCATE x + 4,9: PRINT 
CHR* < 1 ?7) : GOTO 360 

890 IF INKEY (79) 0 THEN CLEAR INPUT 
: GOTO 860 

900 a* -UPPER*(a*)s FOR Z 1 TO 200: 
NEXT Z 

910 LOCATE x+4,9:PRINT a*: X-X +1:b*( 
x ) 8 at 

920 IF x- 10 THEN GOTO 940 
930 GOTO 860 

940 FOR x-1 TO 10: )u*(n> ju*(n)+b* 

(x) : NEXT x 
950 NEXT n 

960 IF pro 1 THEN GOTO 970 ELSE GO 
TO 1080 

970 LOCATE l,2:PRINT JU*(l)j" POR 
FAYOR ELIGE ": LOCATE 2,4:PRINT " 
FL NUMERO DE TU CONTRINCANTE " 








980 LOCATE 1,5: PRINT STRINGS(38,12 
8 ) 

990 FOR n* 7 TO 9 STEP 2: LOCATE 1, 
n:PRINT STRING*<38,127) : NEXT n 
1000 LOCATE 2,22: PRINT " 1 . " gno$ (1 
) 

1010 LOCATE 9,24: PRINT "2.";gno*(2 
) 

1020 LOCATE 15,22: PRINT "3,";gno*< 
3) 

1030 LOCATE 23, 24-.PRINT ”4.";gno*<4 
) 

1040 LOCATE 30, 22: PRINT 11 5. " ; gno* <5 
) 

1050 A*-INKEY* 

1060 IF A*<>"1" AND A*<>"2 M AND A*< 
>*3" AND A*< >"4" AND ASK VS" THEN G 
□TO 1050 

1070 COM=VAL (A*) 

1080 CLS 

1090 GRAPHICS PEN O: MOVE 258,0: o= 
9 

1100 ,)a-INT <RND*2> + 1 
1110 FOR n=l TO 227 
1120 DRAW ar (n) ,bol (n) 

1130 NEXT n 

1140 MOVE 300,0: FILL 0 

1150 GRAPHICS PEN 1 

1160 FOR n- 1 TO 4 

1170 MOVE hon(n), 1 

11 BO c= (4+1NT (RND*2))/10 

1190 GOSUB 2350 

1200 NEXT n 

1210 MOVE 526,370 

1220 FDR n-1 TO 54 

1230 DRAWR gno(n),mo<n) 

1240 NEXT n 

1250 MOVER 0,-10: FILL 1 

1260 MOVER 0,-50: FILL O 

1270 MOVER 0,-20: FILL 3 

1280 MOVER 0,-10: FILL 3 

1290 PLOT 521,320: DRAWR 2,0: PLOT 

530,320: DRAWR 3,0 

1300 CLEAR INPUT: PRINT #1, "PULSA 
UNA TECLA": 

1310 FOR x»l TO 4: cu(x)=0:NEXT x: 
cu<5)*4 

1320 FOR x 1 TO 22 
1330 SOUND 1,25,1,5 

1340 RANDOMIZE TIME: nu <x)- INT <R 
ND*4)+1 

1350 ON nu(x) GOTO 1360 , 1370 , 1380,1 
390 

1360 pri*-ho*:seg*-ja*:cu<l)«cu<l) + 
1: ti«3: GOTO 1400 

1370 pri*-pe*:seg*-ra*:cu(2> cu(2) + 
1: ti-3: GOTO 1400 

13B0 pri* man*: 5eg$*2 a*:cu(3)-cu(3) 
+1: ti»l: GOTO 1400 

1390 pr i*= ce*: seg$=re$: cu(4)=cu <4) + 
1: ti-1: GOTO 1400 

1400 PEN ti: LOCATE si <x ) , ti o<x > s 
PRINT pri *: LOCATE si(x),( tio<x)+l 
): PRINT seg* 

1410 NEXT x:IF INKEY*<>"" THEN GOTO 
1420 ELSE GOTO 1310 


1420 IF cu(1)+cu(2)+cu(3)+cu(4)+cu( 
5X2 THEN GOTO 1480 

1430 IF ja=l AND pro-2 THEN PRINT # 
1, " TURNO DE ";ju*(2) 

1440 IF ja 1 AND pro=i THEN PRINT 
#1," TURNO DE " ignot(coni) : CLS #2 
1450 IF ja-2 THEN PRINT #1, " TURNO 

DE ";ju*(l) 

1460 FOR x*1 TO 400: NEXT x 

1470 IF ja=2 OR pro-2 THEN GOTO 156 

0 ELSE GOTO 1790 

1480 FOR x — 1 TO 1500: NEXT x: CLS 
1490 IF CU <1)+CU(2)+ CU (3)+CU(4)+CU( 
5)=0 THEN JA-JA+1:IF JA=3 THEN JA=1 
1500 IF PRO-2 THEN PRINT "GANADOR.. 
.ju*(ja) 

1510 IF pro-1 AND ja=i THEN PRINT " 
GANADOR.." JU* <1):GOTO 1540 
1520 IF PR0=1 AND ja 2 THEN PRINT " 
GANADOR.." gno*(com) 

1530 IF com>l AND pro-1 THEN LOCATE 
1,4: PRINT ju* <1);" TU PROXIMO CONT 
RINCANTE ":LOCATE 1,5: PRINT " DEBE 
SER ";gno*(com-1) 

1540 LOCATE 1,10: PRINT "PULSE S,SI 
DESEA JUGAR OTRA PARTIDA" 

1550 IF INKEY(60)=0 THEN CLS: GOTO 
650 ELSE GOTO 1550 

1560 me-1:D-0: IN-O:CLEAR INPUT: GO 
TO 1600 

1570 IF INKEY<47)-0 THEN d-0: flie-me 
+1:GOTO 1600 

1580 IF INKEY(6) O AND d>0 THFN GOT 
0 1740 

1590 in*=INKEY*: IF in*»"0" OR 

"1" OR in* - "2" OR in*= u 3" OR in*-"4 

" OR in*-"5" OR in* "6" OR in*^"7" 

OR in*« ,, 8" OR ir*-"?" THEN GOTO 170 

0 ELSE GOTO 1 570 

1600 IF ~e*=6 THEN me*l 

1610 r '.SH2: ON me GOTO 1620,1640,16 

30,1650,1690 

1620 pri*-ho*:seg*“ja*: ti=3:G0Y0 1 
660 

1630 pri*-man*: seg*=za*: ti —1: GO 
TO 1660 

1640 pri*—pe*: seg*=r a*; ti-3:G0TQ 1 
660 

1650 pri*=cet:seg$’re$: ti»l: GOTO 
1660 

1660 LOCATE #2,1,2:PEN #2, ti: PRI 
NT 42. pri* 

1670 LOCATE #2,1,3: PEN #2, ti: PR 
INT #2, seg* 

1660 FOR x- 1 TO 100: NEXT x: GOTO 
1570 

1690 MOVE 9,321: eb-l:c=0.5s GOSUB 
2350: co-0: GOTO 1570 
1700 in-VAL (in*): d-(d*10)+in 
1710 IF d> 99 THEN d-0: GOTO 1560 
1720 LOCATE #2,3,3s PEN #2,1: PRINT 
#2, d 

1730 FOR x=l TO 100: NEXT x: GOTO 1 
570 

1740 IF d >cu(me) THEN GOTO 1560 
1750 cu (me)=cu(me)-d 
1760 GOSUB 2120 

1770 IF ja=l THEN ja«2:G0T0 1420 
17B0 IF ja-2 THEN ja-l:GOTO 1420 
1790 clave -0 
1800 FOR x- 1 TO 5 

1810 E < X)=CU(X) 

1B20 NEXT X 

1830 IF cu(1)+cu(2)+cu(3)+cu(4)+cu( 
5>><com*5)+l THEN :FOR w®l TO 700:N 
EXT w: GOTO 1980 

1840 IF e<1)<2 AND e(2)<2 AND e(3)< 
2 AND e(4)<2 AND e(5)<2 THEN GOTO 1 
850 ELSE GOTO 1870 

1850 sum® e(l)+e(2)+e(3)+e(4)+e<5)+ 
1 

1860 ON sum GOTO 2030, 1980,2030,1 

980.2030,1980 

1870 FOR x-1 TO 5 

1880 bi*(x)- BIN*(e(x),8) 

1890 NEXT x 

1900 FOR n*l TO 8 

1910 FOR x = l TO 5 

1920 p* (x ) - ^>1ID* (bi * ; <x ) , n, 1) 

1930 p (x)— VAL (p*(x )) 



1940 NEXT x 

1950 sum-p(l)+p(2)+p(3)+p (4) +p (5) 
1960 IF sum-1 OR sum-3 OR sum=5 THE 
N GOTO 2030 
1970 NEXT n 

1980 IF clave-1 THEN GOTO 2090 

1990 me- INT (RND*5)+1 

2000 IF cu(me)-0 THEN GOTO 1990 

2010 d= INT <RND*cu(me))+1 

2020 GOTO 2100 

2030 clave a 1 

2040 FOR x-1 TO 5: e(x) m cu(x):NEXT 
x 

2050 me=I NT (RND*5)+1 

2060 IF cu(me)=0 THEN GOTO 2050 

2070 d= INT (RNDtcu(me))+1 

2080 e(me)=e(me)-d : GOTO 1840 

2090 GOTO 2100 

2100 cu(me)=cu(me)-d 

2110 GOSUB 2120: ja 2; GOTO 1420 

2120 IF me-5 THEN GOTO 2280 

2130 FOR >:=1 TO 77 

2140 If* D=0 THEN RETURN 

2150 IF nu(x)*me THEN GOTO 7170 

2160 NEXT x: GOTO 2270 

2170 d-d-1: nu <x) 0 

2180 IF me>3 THEN tl-1 

2190 IF me<3 THEN ti-3 

2200 PEN ti 

2210 LOCATE si(x),tio(x>:PRINT ex* 
2220 LOCATE si(x),tio(x)+1:PRINT pi 
o* 

2230 F.NV 1 , 1, 14, 1,7, -2, 4: SOUND 1,0, 
-1,0,1,0,1: FOR n 1 TO 200: NEXT n 

2240 LOCATE si(x),tio(x>:PRINT " " 

2250 LOCATE si(x), tio (x)+l: PRINT 

2260 GOTO 2160 
2270 RETURN 

2280 FOR H-o TO 15-(cu(me)*2) STEP 

2 

2290 LOCATE H,24: PRINT ex* 

2300 LOCATE H,25: PRINT plo* 

2310 ENV 1,1,14,1,7,-2,4:SOUND 1,0, 
-1,0,1,0,1: FOR n=1 TO 200: NEXT n 

2320 LOCATE h,24: PRINT " " 

2330 LOCATE h,25: PRINT " " 

2340 NEXT H:q= 17-(cu(me)*2): RETURN 
2350 FOR X 1 TO ,23 
2360 DRAWR se(x)*c,ta<x)*c 
2370 NEXT x 

2380 IF CO=l THEN RETURN 
2390 MOVE hon(n)+(5*c>,l+<40*c): D 
RAWR 5*c,5*c:DRAWR 5*c,-5*c: DRAWR 
-5*c,-5*c: DRAWR -5*c,5*c 
2400 MOVE hon(n)-(5*c),l+(30*c): 
DRAWR 5*c,5*c:DRAWR 5*c,-5*c: DRAWR 
-5#c s -5*c: DRAWR -5*c,5#c 
2410 MOVE hon(n)„l+<40*c>: FILL 1 
2420 MOVE hon(n)+3,3: FILL 0 
2430 RETURN 



Iff AD io hoce por It. Jodos los Itsfodos que ifichyon 
sste logotipo se encuenlron o iv disposition en on cos- 
se'te mensuol, solicionosio. 
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U mas moderns base de datos 
DELTA, superandose a si mtsma, 
“DELTA +", desarrollada para 
CP/M por COMPSOFT con todo 
en espanol. 

Disen a suspropios ficheros; des- 
de un simple fichero de nom- 
bres y direcciones hasta su pro- 
pio sistema contable, Tl formato 
standar DIF permite intercam- 
biar datos en DEL TA, desde las 
bojas de calculo CRACKER II, 
etc... y viceversa. Intercambio de 
datos con la mayoria de los tra- 
tamientos de texto c nmo NEW- 
WORD para MAILING. 

Incluye un sencillo y funcional 
sistema de impresion de etique- 
tas con: hasta 5 columnas de eti- 
quetas, 65 caracteres por etique- 
tas, 20 tineas con 3 campos cada 
una. 

• PROGRAMABLE Y RFLACIO- 
NAL. 

• FICHEROS INDEXADOS. 

• IIASTA 90 CAMPOS 6 2.000 
CARACTERES. 

• ML tLTIPLES Si STEM AS Dt BUS- 
QUEDA, 8 CLAVES. 

• FICHEROS DE HASTA 8 Mb. 

• 8 CRUPOS DE TRANSACCION 
POR REGIsTRO. 


BASE 

DE DATOS 


Prograrna de tratamiento de tex- 
tos mejorando todo lo anterior. 
Manual y programs en espanol. 
que le ensenaran con facilidady 
rapidez lo masavanzado en pro - 
cesadores de textos. Compatibi- 
Udad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 

Tiene un potente MAIL-MERGE 
con opcion de selecc/on de des- 
tinatarios por criterios base de 
datos, creacion de documentos, 
impresion de etiquetas. Utiliza 
todo el espaciu de disco. Ensam- 
blaje de textos, sustitucion, etc., 
de la forma mas facil: autohace 
copias de seguridad. jNUNCA 
PERDERA UN TEXTO! 

• N. ACENTOS, DIERESIS, ETC... 

• PRESENTAOONEXACTAFN PAN¬ 
TAIL A DEL FUTURO DOCU- 
MFNTO IMPRESO. 

• INTERCAMB/OSDE FICHEROS 
CON CRACKER. 

• VARIABLES SUSTITUIBLES EN 
IMPRESORA. 

• POTENTE CALCULADORA. 

• COMPROBADORORTOCRA- 
FICO YGRAN DICCIONARIO 
(45.000 TER Ml NOS AMPL/A- 
BLESj. 

• PPSIBIUDAD DELtCTURA DL 
FICHEROS DE DELTA, CARD 
BOX, SUPERCALC, DBASE: II, 
ETC... 


TRATAMIENTO 
DE TEXTOS 


El CRACK de las bojas de calcu¬ 
lo, la que deja detras al resto. 
Funciones nunca vistas, forma- 
teo de fechas, satvaguardia con- 
tinua sobre un fichero. Realiza 
automaticamente copies de se¬ 
guridad. Ademas de las tradicio- 
nales fund ones, CRACKER II 
posee funciones logicas, estadis- 
ticasydealta matematica. Inter- 
tamDia datos con NEWWORD, 
bases de datos y la mayoria de las 
hojas de calculo. 

• CELDAS PROCRAMABLES. 

• FUNCIONES ESPECIALB: 
Fecha, dlas; desde y hasta la fe~ 
cha de la semana, ael aho, lapso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 

• SISTEMA DEAYUDA ON-LINE. 

• SUMA CONDICIONAL. 

• TOMAR DECISIONES EN LA 
HOJA. 

• 18 MODOS CRAFICOS DIS- 
T/NTOS. 

• TRADICIONAI.ES FUNCIONES 
.MATEMATICAS YAMPUACION, 
FUNCIONES ESTADISTICAS Y 
LOGICAS. 

• GENERA CRAFICOS EN BASE 
A LOS DATOS. 


17.850 pts. 


17.850 pts. 


HOJA 

DE C A LCULO 

17.850 pts. 


EDITOR Y DISTRIBUSDOR EXCLUSIVO PARA ESPANA 
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Informatica 


y estas son sus estrellas. 




NUCLEUS mas que una estrella 
una constelacion; tres ESTRELLAS 
en un SUPERPROGRAMA, la so- 
lucion a cualquieraplicacion por 
compleja que sea, NUCLEUS es 
GENERADOR DEPROGRAMAS, 
BASE DE DATOS Y GENERA¬ 
DOR DE INFORMES. 

Toda la informacion es multi-in- 
tercambiable y de libre acceso 
por cualquiera de los demas 
programas. As! los datos de la 
base los condidonamos y utili- 
zamos en el generador de pro- 
gramas y los imprimimos a tra ves 
del generador de in formes. 

• GENERADOR DEPROGRAMAS 
EN MALLARD BANC. 

• CREACION DE BASES DE DA¬ 
TOS RELACIONALE5. 

• GENERADOR DE INFORMES. 

• DISENADOR DE FORMATOS. 

• DISENADOR DF PAN1ALLAS. 

• CQDIGO FUENTF DE LIBRE 
ACCESO Y U8RF DE ERROR. 

• DISENA SL PROPIO SISTEMA. 

• MAILMERGE. 


La revolution del pensamiento, 
BRAINSTORM es un pmgrama 
que piensa con Vd. 

El companero ideal para el em- 
prcsario, director o cualquier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRA INS TORM es la ayuda nece- 
saria para su organizacion. El 
programs que se ha standariza- 
do en Inglaterra, tan necesario, 
utily popular como una base de 
datos o un tratamiento de textos. 

• ORGANIZA POR RANGOS. 

• 4 CCESO DESCENDENTE POR- 
MENOR17ADO. 

• PLANIFICACIONA NIVEL DIA. 

• DECISIONES A LARGO PLAZO. 

• REVISION DE PROBLEMAS. 

• SIMULTANEIZACION DE TA- 
REAS. 

• rROCESO TOP/DOWN. 


1 


GENERADOR 

DEPROGRAMAS 


26.780 pts. 


ORGANIZADOR 
DE IDEAS 


17.850 pts. 


M VENTA EN 10S MHORES COMEKCIOS DE INFORMATICA 
' Vd. tiene alguna dificultad para obtener los programas, puede 




Piii... su ordenador le comunica: 
La revolution de las comunica- 
ciones, de la mano de OFITES 
INFORMATICA, llega a Espana. 
El nuevo mundo de las comuni- 
caciunes digitales lo dene a su 
disposicion, las redes de transmi- 
sicn electronica digitalizada, con 
su PCW8256o PCW 8512 a traves 
de un interface RS 232-C con 
otros ordenadores, redes de trans- 
mision de datos, etc..., Vd. pudra 
enviar o reribir fit herns de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD v otros... 

• TRAN5ICIONES DIRECTAS EN 
RED. 

• COMPATIBILIDAD CON NEW¬ 
WORD. 

• POSIBIUDADES PE TRANSMI- 
SIONES VIA MODEM, RED 
TELEFONICA. 

• COMUNICACIONINSTANTA- 
NEA. 


airigirse a: 


COMUNICA CIONES 


17.850 pts. 


Avda. l abel II, It. 8 
Tek 455544 - 455513 
Telex 16698 

20011 SAN SEBASTIAN 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 












ClNCO PULGADAS 
UN CUARTO PARA AmSTRAD 


Mucha es la espectacion que tenia la llegada de 
las unidades de disco de 5" 1/4, para los 
ordenadores CPC 6128 y CPC 464. Una de las 
primeras en entrar en nuestro mercado ha sido la 
realizado por la casa inglesa Cumana, ya 
conocidas en este pais por sus unidades para el 
Spectrum y para el QL. Una unidad de disco 
extraplana, bastante estetica, como es de 
costumbre en esta casa, y bien acabada 
exteriormente. En una unidad de cinco pulgadas y 
cuatro de simple cara y simple densidad. 



o unidad de disco 
esta provista de un cable de cone- 
xion para el ordenador. No necesi- 
ta de ningun tipo de interface. El ca 
ble viene provisto de dos conectores, 
uno en su extremo, y el otro en la 
parte central del mismo. Este ultimo 
viene preparado para introducirlo en 
la salida del Bus de expansion, el 
otro conector esta preparado para 
en su dia conectarle una tercera uni 
dad de disco. 


de d isco, al salir en el mensaje de 
presentacion dos unidades conecta- 
das. Empezamos a formatear el dis¬ 
co pulsando la opcion correspon- 
diente. En la pantalla nos ira refle- 
jando el numero de pistas que estd- 
bamos formateando, esperando que 
a! Ilegar a treinta y nueve continua- 
se. Pero desgraciadamente no fue 
asi, al Ilegar a la riumero 39 (pista 
cuarenta al contarse el cero como 
pt imera), se detuvo el formateo y nos 
indico el mensaje de operacion con- 
cluida. 

Seguidamente nos salimos del pro- 
grama y tambien del sistema opera 
tivo mediante AMSDOS. A continua- 


Empezamos a trabajar 

Una vez conectada, empezemos a 
trabajar con la unidad de disco. Lo 
primero que hacemos es comprobar 
si el sistema de nuestro ordenador le 
acepta, para lo cual mandamos el 
control de la misma a la unidad B 
(mediante la orden de AMSDOS IB). 
En el momento y despues de efec 
tuarse su puesta a punto nos remite 
el mensaje de READY. 

A la hora de empezar formatea- 
remos un disco de 5" 1/4 para em¬ 
pezar a trabajar. Aqui nos piantea- 
mos la primera incognita, al intentar 
formatear los discos con mayor ca- 
pacidad. Intruducimos el CP/M y una 
vez dentro del sistema cargamos el 
programa DisckitS. Como todos sa- 
bemos el programa Disckit3, es el en- 
cargado de formatear discos virge- 
nes, copiar programas para copies 
de seguridad y verificar los discos. Al 
cargar el sistema nos dirnos cuenta 
de que aceptaba la segunda unidad 


cion para saber la capacidad que te 
niamos en el nuevo disco efectuamos 
un catalogo del mismo para ver cual 
era su capacidad realmente, el resul 
tado fue el mismo que si de un disco 
de tres pulgadas se tratara. Tenia- 
mos un total de 179 kbytes libres; 
memoria libre en el disco. 

El siguiente paso a seguir es com¬ 
probar si funciona bien salvar y car- 
gar programas. Empezaremos por 
probar programas en Basic, luego 
programas salvados en ASCII, Basic 
Protegido y finalmente programas en 
codigo maquina (programas en bi- 
nario). 


> 
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Grabar un programa 

Haremos un pequeno programa 
que contenga bucles, impresion er 
pantalla y algunas llamadas a ma- 
quina. Una vez realizado seguimos 
los pasos normales para su almace- 
narniento en un disco. Primeramen- 
te direccionamos la unidad recepto- 
ra mediante IB. Seguidamente nos 
disponemos a salvarlo con la order 
de Basic: 

SAVE «Nombre. Extension# 

El almacenamiento se realize nor¬ 
mal, y pasamos a comprobar que es¬ 
ta bien almacenado. Para ello rese- 
teamos el equipo y efectuamos un 
catalogo del disco B y posteriormen- 
te la carga del programa. Cuandose 
cargo hacemos un listado y compro- 
bamos que lo ha realizado todo co- 
rrectamente. Solo nos falta ejecutarlo 
por si acaso al cargarlo los punteros 
se han perdido u otro problema por 
el estilo. El resultado es satisfactory, 
el programa se ha ejecutado perfec- 
tamente, Ahora probamos si puede 
trabajar con programas almaceno- 
dos de tipo ASCII. Utilizamos el mis¬ 
mo programa pero salvado con A$ 
Cll: 

SAVE «Nombre.Bas»,a 

El almacenamiento como era de 
esperar es un poco mas lento que Si 
de un programa en Basic se tratara. 
Comprobamos si se encuentra endi- 
rectorio y vemos que si. La carga y 
ejecucion posterior fue normal, con 
lo que aseguramos que puede car- 
gar y almacenar programas en ei 
disco de 5” 1/4 como si fuera unode 
tres pulgadas. 

Con un programa en Basic prote¬ 
gido el resultado fue exactamente 
igual que con los casos ariteriores, 
todo se realize y resulto de una for¬ 
ma normal. Solo nos queda la cues- 
tion de probar con programas en cd- 
digo maquina. 

Una forma facil de comprobarloes 
realizar una pantalla y salvarla al 
disco y posteriormente ejecutarla. 
Eso fue lo que hicimos y los resulta- 
dos fueron de un autentico exito. 

Para ver si podian introducirse fi- 
cheros, utilizamos un programa de 
contabilidad que pudieran estar los 
datos en la segunda unidad, y fun- 
ciono sin problemas. 

En definiriva, la gestion de la uni¬ 
dad de 5" 1/4 es identica a una se¬ 
gunda unidad de tres pulgadas. Se 
puede realizar todo tipo de almace¬ 
namiento en el disco y su posterior 






















cargo a la memoria. Los comandos 
de AMSDOS referentes a borrar, ca- 
talogo, etc. funcionan correctamen- 

te. 

Utilizacion del CP/M con la Uni- 
dad. 

Cuando probamos la unidad fra 
bajando en CP/M 2.2 o CP/M 3.0 
(PLUS), lo primero que necesitaba- 
mos era tener un par de discos de 
cinco pulgadas formateados en los 
respectivos sistemas. Para ello utili 
zamos el programa Disckit2 o 
Disckit3, dependiendo del sistema 
deseado. Tambien se puede realizar 
con el DisckitS, y a la hora de pedir 
la introduccion del disco con sistema, 
introducir primeramente uno y luego 
el segundo sistema. 

Cuando hayamos realizado el 
«formoteo» introduciremos en cada 
unotodo los programas y utilidades 
de cada sistema. 

Para introducir los programas po- 
demos utilizar bien el PIP.COM o el 
propio Disckit. 

Una vez que tengamos todos los 
programas y utilidades traspasados, 
empezaremos a trabajar con ellos. 
Empezaremos por utilizar el CP/M 

2 . 2 . 

Introducimos el programa 
ED.COM para comprobar si funcio- 
na el editor de textos. Lo cargamos 
y empezamos a trabajar con el. Uti- 
lizamos todos los comandos con to- 
cla normalidad. A continuation me- 
temos el DDT.COM con un progra¬ 
ma de texto en pantalla. Cuando fui- 
mos a introducir el programa para 
depurar hay que decir que le costo 
un poco de trabajo cargarlo, tal vez 
por una mala grabacion del rriismo. 
Una vez cargado todo funciono 
bien. 

Asi continuamos con los progra¬ 
mas de mas utilizacion y el resultado 
fue identico a los anteriores, todo iba 
correctamente. 

Con el CP/M Plus nos costo un po¬ 
co de trabajo introducirlo. 

A la tercera vez, conseguimos que 
nos aceptara la segunda unidad de 
disco. Esto se comprueba en el men- 
saje de presentacion, en el nos indi- 
ca la TPA, las unidades conectadas, 
etc. 

Para ver el traslado de programas 
de una unidad a otra utilizamos el 
comando PIP. Con este modificamos 
algunos programas de un directorio 

a otro. 

Para probar alguna sclida diferen- 
te de la consola o la unidad de dis¬ 
co, pensamos en mandar un fichero 
desde la segunda unidad a la impre- 

sora. 


Cargamos el programa PIP.COM 
y lo preparamos para mandar un fi 
chero ASCII a la impresora. Si fun- 
ciona, podemos asegurar que esta la 
unidad perfectamente adaptada a 
todas las salidas y entradas de una 
unidad de discos. 

El fichero a los pocos segundos fue 
impreso en la impresora, completan- 
do asi la prueba de salida. 


Trabajando 
con AMSDOS 


Como todos sabemos el AMSDOS 
son los comandos que incorporan a 
nuestro Basic despues del signo I. Va 
mos a probar uno a uno todos los co¬ 
mandos para ver como se comporta 
la unidad de disco. 

I A; IB 

Con este comando nos movemos 
de una unidad a otra. Al introducir¬ 
lo el control se nos marcha de una 
a otra unidad, funciona. 

ICPM 

Esta orden la nemos probado an¬ 
tes a la hora de introducir el CP/M, 
y comprobamos que este se cargo 
desde la unidad A, pudiendose mas 
tarde trabajar con la B. 

IDIR 

Esta orden nos mostro todo el di¬ 
rectorio del disco, situandonos antes 
en la segunda unidad, a la vez que 
probamos sus parametros. 

IDISC; IDISC.IN,- IDISC.OUT 

La primera orden equivale a las 
dos siguientes, y nos dice que todas 
las operaciones de entrada y salida 
son con el disco. 

IDRIVE 

Nos cambia la unidad de disco im- 
plicita. Es una forma de saber si te- 
nemos bien conectada la segunda 
unidad, de otra forma esta orden fa- 
llari'a por no encontrar la segunda 
unidad. 

IERA 

Pudimos comprobar que borra to¬ 
dos los ficheros de la segunda unidad 
como de la primera. Tambien se pro- 
vo con sus parametros y trabajo nor- 
malmente. 



IREN 

Renombramos algunos de los pro¬ 
gramas para utilizar diferentes para 
metros con el IERA y IDIR. 

IUSER 

Escribirnos algunos usuarios en el 
disco, e introducimos algunos pro¬ 
gramas en los mismos. Luego pudi 
mos acceder a ellos colocandonos 
previamente en el usuario conve- 
niente. 

Problemas encontrados. 

El primero de ellos es la falta de 
manual. Aunque no sea imprescindi- 
ble para su instalacion, si es conve- 
niente para su utilizacion y mayor 
aprovechamienfo. 

Cuando buscamos un sitio para su 
colocacion, pensamos en situarlo en 
la parte derecha del ordenador, pe- 
ro debido al corto cable de expan¬ 
sion la colocacion de la unidad dis¬ 
co es un poco dificultosa, ya que al 
ser el conector central el que se in¬ 
troduce en el bus de expansion, obli¬ 
ge a colocar dicha unidad perpen¬ 
dicular a la consola del ordenador y 
detras de esta. Si por casualidad te- 
nemos un monitor a color, el proble- 
ma se acentua aun mas debido al 
mayor tamano de este, que debe ser 
desplazado hacia un lateral, prefe- 
rentemente a la izquierda con la con- 
siguiente incomodidad para el cable 
de la impresora en caso de tenerla. 
El resto del cable de conexion de la 
unidad de discos queda temporal- 
mente obsoleto, siendo incomodo 
ademas de poco estetico al quedar- 
se suelto por la mesa. El conjunto es¬ 
tetico que nos supone el utilizar esta 
unidad es pues bastante lamentable. 

Otro inconveniente es el ruido que 
produce la unidad de disco al traba¬ 
jar. Este ruido, se asemeja al que 
produciria una unidad de disco nor¬ 
mal si tuviera suelta la cabeza o no 
tuviera engrasado convenientemente 
el motor. 

Ademas la velocidad a la que tra 
baja esta unidad es inferior a la que 
trabaja la unidad de disco de tres 
pulgadas. 
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1 er PROGRAMA ROM EN ESPANlA 

ACCESO INSTANTANEO, NO OCUPA MEMORIA RAM. 
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Se trata de una implementation del popular 
FORTH-79, ampliada con multiples comandos 
graficos y de sonido. Su exclusivo tratamiento 
de sprites y la autoejecucion de los ficheros 
generados en ausencia del compilador lo 
convierten en una gran herramienta de trabajo, 
con una velocidad de ejecucion comparable a la 
del codigo maquina. 

--rST 

3.600 + 

c( m!co - 4500 * 


NO SE LIMITE A LEER ESTE ANUNCIO 

INFORMESE 


Conozca HEXAM, un sistema completo de 
desarrollo, compuesto de Editor, Ensamblador, 
Linkador y Monitor. Su facilidad de manejo 
(incorporacion de Soft-Keys) y agilidad 
operativa lo convierten sin duda en el mas 
potente del mercado. 


Los 128 K RAM del CPC 6128 permiten la incorporacion de 
un buffer de impresora, asi como el almacenamiento de 
los ficheros fuente, agilizendo asi el proceso de 
ensamblado y linkado. - 

a "p v.p- 










































MICROCOMPUTADORAS 
DICCIONARIO 
DE TERMINOS 


la hora de saber lo 
que significan muchos terminos en informati- 
ca, nos enconframos con muchos problemas, 
ya que la traduccion literal que enconframos 
en cualquier diccionario, no se asemeja en na- 
da a lo que esperdbamos. Para esto nos es ne- 
cesario un diccionario especializado, como el 
que nos presenta Mac Graw-Hill. 










Un diccionario que nos aportara informa- 
cion sobre lo que es un byte, bit, nibble y to- 
do tipo de palabras. Ademas podremos bus- 
car todo tipo de terminos tecnicos como que 
es una memoria de burbuja, un interface de 
enfrada salida, una biblioteca de programas, 
etc. 

Es un diccionario que se extiende lo suficien- 
te en iodas sus explicaciones, que nos da res- 
puesta a cualquier tipo de information que ne- 
cesitemos sobre microcomputadoras, ya sean 
cuestiones electronicas, informdticas, fisicas, 
o historicas, fechas, datos sobre personajes, 
etc. 

Todos los terminos se tratan alfabeticamente 
como si de una sola palabra se tratase. 

Ufiliza un sistema de referencias cruzadas 
para ayudar a buscar terminos que pudieran 
localizarse en varios lugares del diccionario. 

La cabecera de cada pagina contiene la pri- 
mera y ultima paiabra que contiene. 


El unico inconveniente es que las referencias 
deberemos hacerlas en ingles, si en ingles, 
aunque posteriormente nos aparezca la tra¬ 
duccion y la explicacion en nuestro idioma, ass 
que si desconocemos la traduccion al ingles de 
lo que deseamos buscar no sera una (area facil. 


POGRAMACION 
AVANZADA DE 
AMSTRAD 
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El segundo capitulo esta dedicado al inte 
faz, hablando muy escasamente del puertod 
expansion, tan solo tres paginas. 

Y en el tercer capitulo trata con gran exter 
sion el tema de las salidas, explicando cow 
construir una expansion de la tarjeta madre 
contando cosas sobre el interfaz paralelo, cc 
mo crear un punto de impresora alternate 
el interfaz serie, y finaliza hablando sobre j 
ROM auxiliares, que son, como tipos, forme 
to y aplicaciones. 

Al final del libro enconframos un program - 
que nos permifird visualizar o impri.mir el con 
tenido de la RAM y de la ROM. 


! n libro basado en el 
CPC464, al que en su prologo compara con 
un iceberg, por la parte que permanece es- 
condida, el libro en si es uno mas de los edi- 
tados para este ordenador, pero el tema tra- 
tado le hace diferente. El objetivo principal es 
mostrarnos como manejer los perifericos con 
el Amstrad. 

El libro deja bien dicho en su prologo, que 
hay que poseer «literatura» sobre el Z-80, ya 
que se hacen continues referencias a subruti- 
nas de maquina para este procesador. 

El libro se divide en tres partes: 

La primera esta dedicada a las entradas, 
empezando a hablarnos del sistema solapa- 
do de memoria someramente como puede ma- 
nejar la Z-80 64 K de RAM y 32 K de ROM. 



En definitiva un libro que es muy aconsep > 
ble para el programa avanzado de codige | 
maquina. 


A continuation empieza a contarnos cosas so¬ 
bre la estrudura interna de la maquina. Co- 
rno funciona su sistema de memoria, hablan¬ 
do de Jos perifericos infernos, controlador de 
teclado, los diversos dispositivos de visualiza¬ 
tion, el controlador de sonido, etc. Suminis- 
trando un complete mapa de las direcciones 
de entrada/salida. 

Nos muestra tambien como trabaja el cas¬ 
sette, con una complete description del blo- 
que de cabecera del misrno, tambien nos ha- 
bla sobre el teclado, nos cuenfa para que sir- 
ven las distintas direcciones de! area RSI, con- 
cluye el capitulo con una reducida guia de lla- 
rnadas a las subrutinas del firmware. 



INTRODUCCION 
A LA 

PROGRAMACION 
SISTEMATICA 

Ell libro se sifua en bs | 
comienzos del Pascal, aunque en el libro self 
menciona como una extension del ALGOL-60 
El titulo hace referencia principalmente a!« 
seis primeros capitulos, esbozando el funds 
namiento de una computadora y con tema: 
que ayudan a sistematizar y verificar el tre 
bajo del neofito. 
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A partir del capitulo 7 se estudian los meto¬ 
pes recursivos e iterafivos; se muestra la po- 
tencia de los tipos, el almacenamiento en fi- 
cheros secuenciales, manejo de punteros, de- 
claraciones de procedimientos y funciones, 
etc,, que constifuyen toda una demostracion 
de la potencia del lenguaje. 

Cabe resaltar la separacion y explicacion en 
los tipos de sustitucion y asignaciones gene- 
rales. El manejo de las mismas obliga a cono- 
cer muy bien las prestaciones de nuesfro com¬ 
pilador. Sin embargo, el libro no responde a 
lo que es un manual de compilador, pero pue- 
a simplificar el manejo de un com- 


Su leclura proporciona una vision clara de 
descripcion de identificadores. Todos los 
conceptos y sentencias estan muy bien expli- 
cados y se hacen consideraciones sobre el am- 
biio de validez de los mismos. 

Se echo de menos una mas clara separacion 
entre las partes dedarativa y ejecutable. La 
parte dedicada a ENTRADA-SAL1DA es muy 
superficial debido a que varia mucho de un 
compilador a otro. 


PROGRAMACION 

ENC: 

INTRODUCCION 
Y CONCEPTOS 
AVANZADOS 



h 


cmo indica su titulo, 
es un libro muy completo. Parte de la base que 
el lector apenas tiene conocimientos de pro- 
gramacion. Los autores son los creadores de 
la version C para el IBM PC, el Lattice C. Esto 
no quiere decir que vaya dirigido hacia dichos 
usuarios; se extiende sobre su aplicacion en 
sistemas operativos coma el XENIX, UNIX, etc. 

Se empieza con una introduccion al C, pro¬ 
cedendo, ulilidad manejo y, jcomo no!, cua- 
lidades. Para regocijo del novicio se dedica un 
capitulo a la descripcion de datos, variables, 
constantes y literales el forma en que son fra- 
iados por C. 

A continuation nos introducimos en una ti- 
pica iniciacion de C: programas de impresion 
de cadenas, manejo delos distintos tipos de 
caracteres y en el uso de la palabra clave DE¬ 
FINE #. Tambien se dedica information cau- 
telosa y amplia sobre operadores, entrada/sa- 
lida, condiciones, bucles, funciones, etc. 

Se hace especial hincapie a lo largo de un 
capitulo sobre la potencia del preprocesador 
y de la biblioteco disponible. 

Concluye con una serie de apendices que se- 
ran de gran utilidad al programador a la bo¬ 
ra de trabajar con este lenguaje. 

Todas las explicaciones son muy claras y los 
autores tratan el texto con cordialidad, bro- 
meando ampliamente a lo largo del mismo. 



CP/M: GUIA DEL USUARIO 

libro provechoso 
para sacarle todo el partido al sistema ope¬ 
rative CP/M. A traves de sus paginas iremos 
viendo los diversos comandos y ordenes tran- 
sitorias que nos brinda CP/M, con una com¬ 
plete! explication de las mismas. 





Se divide en ocho capitulos y otros tantos 
apendices en los cuales se describe la ruta a 
seguir en los senderos CP/M, 


Los dos primeros capitulos tratan los ante- 
cedentes historicos del sistema asi como sus or¬ 
denes. Las opciones con la tecla CTRL tambien 
son expuestas. 

Poco a poco, nos vamos adenfrando en el 
sistema operativo. Ordenes transitorias, ex- 
baustivas explicaciones del editor y ensambla- 
dor; eso si, desde un punto de vista un tanto 
triunfalista... 

Avanzando mas en el manejo del sistema 
operativo encontramos el mefodo para enfren- 
tarnos a archivos transitorias y sistemas de mul- 
tiproceso. Lo adecuado para estar al corrien- 
te de las tecnicas profesionales. 

Los ultimos capitulos se dedican a la descrip¬ 
cion tecnica del mismo para aquel que desea 
bacer sus pinitos bajo los auspicios del siste¬ 
ma. 

Completan la descripcion una guia rapida, 
codigo ASCII, comparacion entre distintas ver- 
siones, bibliografia, etc., todo ello incluido en 
los apendices del mismo. 
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Lisp o el Dominio de la 

IA 


Autor: R. Garrote 


(DE EQUAL (SEX1 SEX2) 

(COND ((ATOM SEX1) (EQ SEX I SEX2)) 
((ATOM SEX2) NIL) 

((EQUAL (CAR SEX1) (CAR SEX2)) 

(EQUAL (CDR SEX1) (CDR SEX2))) 

(T NIL) 

)) 

Cuando vi por primer a vez un programa LISP 
quede sorprendido. iComo era posible que eso, 
que no tenia asignaciones, ni bucies, ni saltos, 
pudiese hacer algo? 



vtM ara cargar tu interpre- 
te de LISP teclea RUN "MINILISP". Este pro¬ 
grama es el cargador: te muestra la insignia 
del programa y te pide el tamano de la tabla 
de identificadores, que es el diccionario inferno 
del interprete. Debesdar un numeroentre TOO 
y 1.000. Pongamos, de momento, 300. (El 
programa estd disenado de modo aue te de- 
je la mayor canfidad posible de memoria li- 
bre —esto lo consigue con el comando CHAIN 
MERGE y su opcion DELETE— de modo que 
el programa se cargo en cuatro etapas. En- 
tre estas etapas hace dos pausas pronuncia- 
das para inicializar las estructuras internasj. 


Cuando el interprete de MINILISP es¬ 
te dispuesto escueharas un pitido y 
aparecera en pantalla un mensaje 
indicdndote la cantidad de memoria 

disponible. Juste debajo aparece el «salu- 
do* de tu interprete: 


> 

Uno se puede entonces imaginar que den- 
tro de la mdquina se hallo un geniecillo que 
estd dispuesto a satisfacer todas fus ordenes 
siempre que se las des en su idioma, que es 
LISP. (El geniecillo de nuestro ccmputador es 
un poco perezoso para cumplir los recados 
que le pedimos}. 

Vamos a pedirle al gertio algo que tanto tu 
como el entendereis: 

> ( + 2 2) {;y INTER daro!{ 

En efecto, queremos que ei genio rios diga 
cuantas son dos mas dos. Cuando el genio 
comprende nuestra solicitud indica con pun 
tos suspensivos que esta pensando (evaluan- 
do, se dice). Cuando sabe la respuesta nos en- 
sena su reloj para que veamos cuanto ha tar- 
dado en calcularla y nos dice que dos mas dos 
son cuatro. jMagm'fico! 

El interprete de LISP «iee» nuestro deseo, lo 
evalua, imprime el resultado y nos Indica a 


continuacion que estd dispuesto a cumplir un 
nuevo mandate. 

jComo podemos comunicarnos con el duen- 
de de LISP y de que forma nos respondera? 
En principio se le pueden pedir cosas sencillas, 
pero escritas en una forma un tanto extrana 
(a los que hayais programado aigunas calcu- 
ladoras tal vez os suene: se llama notaeion pa¬ 
lace). Por ejemplo. Para que calcule 
(2*3)+15—(6/2) se podria escribir: 

>(+ (*23) 

>{SUB IS 
> (DIV 6 2))) 

jNo parece LISP un lenguaje especialmen- 
te pensado para realizar operaciones aritme- 
ticas! Ademas, MINILISP opera solo con nu- 
meros enteros. LISP es un lenguaje especiali 
zado en manipuiar listas de objetos (el nom 
bre de LISP viene de LISt Processing, proce- 
samiento de listas). Los elementos oasicos que 
maneja LISP son los dtomos. 

Pero, jque es un atomo? En principio, un 
dfomo es cuclquier sucesion de letras y nume- 
ros que empiece por una letra. Por ejemplo, 
son dtomos 

ATOMO atomo Casa A123 Lisfa LIstA NIL T 
y no son dtomos 

123a (EsfoNoEsUnAfomo) 

Tu interprete de LISP no distingue entre ma 
yusculas y minusculas, de modo que ATOMO, 
Atomo y AtoMO son uno y el mismo opjefo. 

Sin embargo, tambien son dtomos 
ANDRES PEREZ ES UNA ? ‘ESTRELLAS* 

Todo estos dtomos se llaman dtomos litera- 
les. Podemos dar entonces una definicion mas 
general de los dtomos literales: un atomo lite¬ 
ral es cualquier sucesion de simbolos con dos 
unicas restricciones: 

i) Un atomo literal no puede empezar ni por 
un digito ni por el simbolo '. 

ii) Un atomo literal no puede contener nin- 
guno de los siguientes simbolos: () . % / 

Las razones de que estos simbolos no se pue- 
dan utilizer las iremos explicando poco a po¬ 


co. Ya hemos visto que LISP tambien mane 
numeros. Los numeros tambien son atom 
aunque, no son dtomos literales. (A vecess* 
llaman dtomos numerales o numericosj. 

En LIS P , todas las insfrucciones son Harr: 
das a funciones (vease el articulo sobre nts 
gencia Artificial en el numero xxx). Una fm 
cion bdsica (primitiva) en LISP es QUOTE. Es 
ta funcion tiene como valor su argumentoi 
decir 

> (QU ; a ?-:: mo) 

vale ANTONIO. QUOTE tiene como misior 
impedir que se evalue su argumento. Por ejem 
plo, cuando tu escribes en Basic. 

PRINT 2 + 2 ■ 

el interprete ae Basic evalua la expresion zr. 
y escribe su valor: 4. Si quieres que no ex 
lue, debes escribir 

PRINT "2 + 2" I 

De la misma forma 

PRINT ANTONIO I 

escribiria el valor de la variable AN ONIC 
mientras que 

i I NT "ANTONIO" 

escribiria ANTONIO. Para impedir que se in 
terprete ANTONIO como una variable debes 
entrecomiliarlo; ese efecto de «entrecomi- 
llado» es el que se consigue en LISP conic 
funcion QUOTE. 

En LISP, los dtomos literales no tienen vale 
excepto losdtomosNILyTcuyos valores so 1 
respectivamente NIL y T. Este par de valores 
se usa con frecuencia como valores booiec- 
nos: NIL equivale a falso y T a cierto (True, 
en ingles). En MINILISP, existen otros dos dto¬ 
mos literales con valor: PIZQ que vale (, cuyo 
valor es). Sirve para que puedas escribir am- 
bos parentesis. Los dtomos numerales si tienen 
valor y su valor es el numero que represen 
tan. Si se evalua un atomo que no tiene vale 
se produce un error. (Algunos dtomos litera¬ 
les pueden actuar como variables y guards' 
temporalmente valores, pero de las variable! 
hablaremos luego). 

Como hay que utilizar mucho la funcion 
QUOTE se ha ideado una abreviatura para 
ella (igual que puede utilizar ? en vez de PM 
cuando programas en Basic). Esta abreviatu¬ 
ra es'. Por tanto 

tambien vale ANTONIO. En adelante, en lu- 
gar de QUOTE utilizaremos su abreviarura. 

Otra funcion primitiva de LISP es CONS, que 
produce pares de objetos. Por ejemplo: 

> {CONS 'A 'B) 

vale (A.B). Nos encontramos entonces ante un 
objeto que no es un atomo. Se llama par, e 
par que tiene como primer elemenio A y co¬ 
mo segundo elemento B. jPor que hemos uii- 
lizado QUOTE? Pues porque CONS tambier 
evalua sus argumentos y querfamos obtensf 
el par forrnado por A y B y no por sus valo¬ 
res. Un ejemplo mas: 

> (CONS 'A 1) I 

vale (A. 1). El dfomo 1 tiene como valor 1 ) 
por eso no hay que ponerle QUOTE delante. 
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Ahoro hagamos la operacion contraria: da¬ 
do un par, obtenersuscomponentes. Haydos 
r -nciones que hacen esto: CAR devuelve e! pri¬ 
mer elemento del par y CDR su sequndo ele- 

mento: 

> (CAR' (A.B)) 

> (CDR ' (A.B)} 

vale B. Ademas de construir y «destruir» ob 
ietos podemos hacer preguntar ai genio sobre 
estos objefos. Par ejemplo, el predicado EQ 
se utiliza para comprobar la igualdad de dos 
atomos literales mienfras que para comprobar 
la igualdad de numeros debe usarse = 
>(=4 8) 

vale NIL, es decir, es (also, mientras que 

> (EQ ' A (CAR ' (A.B))) 

vale • Date cuenta que el segundo pardme- 
'rodeEQ, (CAR' (A.B)), no lleva QUOTE. En 
consecuencia, el genio evalua esto para dar 
A, seaun yimos en un ejemplo anterior. El re- 
sultado de evaluar 'A tambien es A y por tan- 
to se verifica la igualdad. 

■'omos a construir ahora estruduras mas 
complicadas. 

> CONS 'ANA (CONS 'ES 'BONI¬ 
TA)) 

vale (ANA. (ES. BON IT A)). CONS solo ad¬ 
mits dos parametros, de modo que para ob 
tener estruduras de mas de dos elementos de¬ 
be formarse pares de dos en dos. Para refle- 
jar esta forma de construir estructuras es me- 
jor escribir 


> (CONS 'ANA 

> 'ES 

> 'BONITA))) 

Si ahora le prequntamos al genio 

+ (CONS 'A NIL) 

nos respondent con (A). $Que ha ocurrido? 
jNo deberia ser la respuesfa (A. NIL)? Antes 
aije que LISP es un lenguaje especializado en 
manipular iisfas y, sin embargo, hasta ahora 
solo conociamos atomos y pares, lanto ato 
mos, como pares y Iisfas se conocen con el 
nombre generico de expresiones simbdlicas (S- 
expresiones 0 SEXos). Ocurre que el dtomo 
NIL es un poco «raro». Pero antes de seguir 
dare la definicion de listo: 

i) () es una lista con 0 elementos (se llama 
lista vaci'a). 

ii) el par que tiene como primer elemento 
una S-expresion S y como segundo elemento 
uno lista L es, a su vez, una lista que tiene co¬ 
mo primer eiemenfo la S-expresi6n S y como 
resto de la lista la lista L. 

Para los que no esteis acostumbrados a las 
definiciones recursivas —las que usan el ob- 
jefo que- se pretende definir en la propia 
definicion- dare otra definicion: una lista es 
0 una lista que no tiene elementos, represen- 
tada por (), 0 cualquier cosa que contenga 
atomos, pares u otras listas entre un porente- 
sis abierto "(" y un parentesis cerrado ")". 
Por ejemplo: 

(ESTO ES UNA LISTA DE 7 ELEMENTOS) 


(ESTO ES (UNA (LISTA DE 3) 
ELEMENTOS)) 

(ESTO (TAMBIiN.ES) ((UNA)) LISTA) 

El tercer ejemplo es una lista de tres elemen- 
fos, el tercero de los cuales es a su vez una 
lista de tres elementos. 

(UNA (LISTA Di 3) ELEMENTOS) 

y cuyo segundo elemento es otra lista ae tres 
elementos. 

(LISTA DE 3) 

Veamos algunos ejemplos de cosas que no 
son listas- 

LE FALTAN LOS PARENTESIS 
((y PALTAj !L PARENTESIS DERECHO 

Todos los objefos que manipula LISP 0 son 
atomos, 0 son pares, 0 son listas. Sin embar¬ 
go, exisfe en LISP un objeto un tanto esquizo- 
frenico: es un afomo que tambien es una lista 
0 una lista que tambien es un dtomo. Tiene dos 
representaciones: como dtomo, NIL, y como 
lista () (por eso a veces se dice que es BISE- 
Xual). LISP no distingue entre una y otra re¬ 
presentation: para LISP son una y la misma 
cosa. En adelante, usare la representation que 
me parezca mds conveniente, sin hacer refe¬ 
renda a la otra. 

Por la definicion de lista, como A es un ato 
mo y NIL es una lista, entonces (CONS 'A NIL) 
tambien es una lista, que tiene como primer 
eiemento A y como resto la lista vada (NIL 0 
()). j.Entiendes ahora por que (CONS 'A NIL) 
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es (A)? Para construir una lista solo tiene que 
poner como ultimo parametro del CONS «mas 
interno® {) o NIL. Por ejemplo: 


> (CONS ' iSTO 

> (CONS 'ES 

> (CONS ' UNA 

> (CONS 


'LAPSA 


+ 

(CONS ' LISTA 

+))))) 

cuyo valor es (ESTO ES UNA LARGA LISTA). 
En este caso, el CONS mas interno es (CONS 
' LISTA ()). 

Construir listas de esta forma es un duro tra- 
bajo, de modo que existe en LISP una funcion 
que puede tener cualquier numero de argu- 
mentos y que produce una lista con los resul 
tados de evaiuar cada uno de sus argumen- 
tos; es la funcion LIST. 


> (LIST' ESTO ' ES ' UNA ' LARGA ' 
LISTA] 

vale (ESTO ES UNA LARGA LISTA}. 

Ya habrcs observado la eantidad 
de parentesis que hay que escribir en 
LISP. Esto no suele ser un problema 
salvo cuando hay que cerrar todos 
los parentesis que permanecian 
abiertos. Para no tener que andar 
contando con cuidado, en MICROLISP 
puedes escribir el simbolo y para in¬ 
dicarle al genio que quieres cerrar todos los 
parentesis. 

Hasta ahora no hemos necesitado conocer 
las propiedades de los objetos que le presen- 
tabamos a LISP pues ya sabemos que 1 es un 
numeral, PERRO es un atomo y (JUAN.MA 
Rl) es un par. Sin embargo, vamos a empe- 
zur a tralar con variables (si, jpor fin!) y en 
tonces solo conoceremos el nombre del obje- 
to y no sus caracterfsticas. Por eso voy a ex- 
plicar olgunas funciones, llamadas reconoce- 
dores, que fienen como fin -nformarnos de las 
caracterfsticas ae los objetos que manejemos. 
ATOM nos dice si un SEXo es un atomo o no 


> 

vale T. 

> (ATOM 1) 

vale T. 

> (ATOM (CAR (A.B / 

vale T, pues (CAR (A.B)} vale A, que es un 
atomo. Pero 

> (ATOM ' (CAR (A.B / 

vale NIL, pues (CAR (A.B)) es una lista. Es¬ 
ta es una caracferistica muy importante de los 
programas LISP: todo programa desde otros 
programas LISP y evaluarios inmediatamen 
te. Esta es una de las ventajas de LISP sobre 
otros lenguajes de programacion y una de las 
razones de que se utilice en IA (Inteligencia Ar¬ 
tificial), Mas adelante veremos ejempios de es¬ 
to. 

Otros reconocedores son LITATOM, NUM- 
BERP y PAIRP. El primero nos dice si un obje- 
to es un atomo literal, el segundo si es un nu¬ 
mero y el fercero si es un par. 


> L) 

vale T perc 

> 

vale NIL. 

> 

vale T y 

> 

vale NIL. 

> (PAIRP ' (ABC)) 

vale T, pues (A B C) es la representacion en 
forma de lista de (A. {B. (C.NIL))), que es un 
par con primer elemento A y segundo■ elemen- 
to (B. (C.NIL)). 

La funcion NULL sirve para reconocer ia lista 
vacia. 

> 

vale T. Espero que sepas cuanto vale. 

> 

Si no estas muy seguro preguntaselo a tu ge- 
nio. Un ejemplo mas. 

> 

vale NIL. 

Hasta aqui hemos visto algunas de las fun 
ciones internas del sistema. Ahora veremos co¬ 
mo podemos definir las nuestras. Supongamos 
que estamos escribiendo un programa para 
encontrar la pareja ideal de algunas personas 
y cuando la encontramos se casan. Para ca- 
sar a la feliz PAReja podriamos definir: 

+ (DE BODA (JOSE ANA) (CONS JO¬ 
SE ANA)) 

2 Por que ahora JOSE y ANA no llevan 
QUOTE? Pues porque ahora JOSE y ANA ac- 
tuan como variables (se llaman parametros de 
la funcion) y no como objetos. Podriamos ha- 
berles llamado X e Y, pero una boda entre X 
e Y puede sonar un tanto «robotica». En LISP, 
cualquier atomo literal sirve como nombre de 
funcion o como nombre de variable, pero no 
puedes definir funciones con los nombres de 
las palaDras reservaaas ae LISP. (Si quieres sa¬ 
ber cuales son estas palabras reservadas dile 
a tu interprete (OBLIST). Esta funcion te mues- 
tra en pantalla todos los identificadores que 
MINILISP conoce hasta el momenta). 

La forma de definir funciones en LISP es se- 
mejanfe a como se hace en Basic: se ufiliza una 
palabra reservada para indicar que lo que si- 
gue es una definiclon, DE, y luego se da el 
nombre de la funcion a definir, BODA segui- 
do de los parametros de la funcion, JOSE y 
ANA, y de las instrucciones para calcular el 
valor de la funcion, (CONS JOSE ANA). 

Ahora podemos utilizar la funcion BODA 
que hemos definido de la misma forma que 
una funcion interna del sistema. Al usarla, de- 
beremos dar valores a los parametros. Por 
ejemplo. 

+ (BODA ' SEGISMUNDO ' ROSA¬ 
LINDA) 

y el feliz enlace seria (SEGISMUNDO. ROSA 
LINDA). 

La posibilidad de definir funciones nos per- 
mite modificar los nombres de las funciones del 
sistema LISP. Por ejemplo, las funciones CAR 
y CDR pueden tener nombres adecuados cuan¬ 


do se trata de obtener las componentes prt ■ 
mera y segunda de un par, pero 

> 

que vale A, y 

> (CDR ' (A B C)) 

que vale (B C), no son nombres adecuados 
cuando se pretende obtener el primer elemsc 
to de una lista y el resto de la lista (la lista fon 
mada al quitar el primer elemento). Rarest 

> (DE PRIMERO (LIS) (CAR )) 

> (DE RESTO (LIS) (CDR LIS)) 

seran las funciones que use cuando quierc 
hacer referenda al primer elemento de una Is 
ta y a su resto. Por ejemplo: 

> (PRIMERO ' (A B 0) 

vale A, y 

> (RESTO ' (A B 0) 

Vale (B C). Se trata de conseguir que bs 
nombres de las funciones y de las voriabies it- 
diquen lo que hacen o son. Ahora tu puedes 
cambiar los nombres de algunas funciones LISP 
si los que tienen no te gustan. Por ejemplo: 

> (DE SUMA (X Y) ( + XY)) 

> (DE RESTA (X Y) (SUB X Y)) 

> (DE MULTIPLICA (X Y) (* XI 

>(DE DIVIDE (X Y) (/ X Y)) 

De esta manera, (2*3)- 1 -15—(6/2) ahora se 

puede escribir como 

> (SUMA (MULTIPLICA 2 3) 

> tlSTA 15 

> (DIVIDE 2 

+) ) 

Antes de empezar a escribir programas mis 
grandes debemos conocer algunas otras (un 
ciones. Lg primera esCOND, que es algo se- 
mejante a la instruccion IF condicion THEN ins- 
truccion ELSE instruccion. La forma general de 
la funcion COND es: 

(COND (condicicnl instruccion1) 
(condicion2 instruccion2) 

(condidonk Instruccionk)) 

donde condicion!, instruccion 1, condi- 

cionk, instruccionk deben ser sustituidos por Pal 
madas a funciones. En Basic se escribiriaasi: 

IF condicionl THEN instruccionl 

ELSE IF condicion2 THEN instruccion2 


ELSE IF condidonk THEN instruccionk 

Si todas las condiciones valen NIL ertonces 
el geniecillo te avisa de que han fallado tcJas 
las condiciones y el valor de la funcion CONC 
es NIL. Si el valor de alguna de las condicio¬ 
nes no es NIL, entonces el valor de COND es 
el de la correspondiente instruccion. Veamos 
un ejemplo que nos aclara todo esto: 

> (DE SEGUNDO (LIS) 

> (COND ((NULL LIS)' (LA Ll| 
TA ES VACIA)) 

> ((NULL (RESTO LlSfl 
(LA LISTA SOLC TIENE UN ELiMEN- 
T °)) 

> (T (PRIMERO (RESTQ 

US))) 

+ )) 
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Pidamosle al genio que nos diga cudl es el 
segundo elemento de aigunas listas. 

> 

nos responde (LA LISTA ES VACIA), ya que 
ahora LIS vale () luego (NULL LIS) valeT, que 
es dislinto de NIL, y por tanto el valor de 
COND es el de evaluar' (LA LISTA ES VACIA). 

> (SEGUNDO ' (A)) 

es (LA LISTA SOLO TIENE UN ELEMENTO}. 
Ahora LIS vale (A), luego (NULL LIS) vale NIL 
ysepasa a evaluar la segunda condicion. Co¬ 
mo 'RESTO LIS) es () se veriflca (NULL (RES- 
TO LIS)), que vale T y, por tanto, el valor de 
CONDes el de evaluar' (LA LISTA SOLO TIE¬ 
NE UN ELEMENTO). 

> (SEGUNDO ' (A B)) 

vale B, ya que LIS vale (A 8), (NULL LIS) es 
NIL y (RESTO LIS) es (B), luego (NULL (RES- 
TO LIS)) es NIL. Como T vale T, el valor de 
COND es el de la tercera instruction, o sea, 
el resultado de evaluar (PRIMERO (RESTO 
US)), que es lo mismo que (PRIMERO ' (B)}, 
es decir, B. 

El truco de poner T como ultima condicion 
sirve para que siempre se verifique alguna 
condicion. Se suele poner casi siempre, pero 
no es necesario. 

De igual forma que en Basic, en LISP pue- 
des utilizar las funciones booleanas AND, OR 


y NOT. AND y OR admiten cualquier nume- 
ro de pardmetros, mientras que NOT solo tie- 
ne uno. AND vale T si ninguno de sus argu- 
mentos vale NIL y vale NIL si alguno de sus 
argumentos vale NIL. 

+ (AND (3+ =1) (1 < +23)) 

vale T. 

+ (AND (NULL ()) (CAR ' (NILL))) 

vale NIL, pues (CAR ' (NILL)) es NIL. 

La funcion OR ioma el valor del primer ar- 
gumento cuyo valor no sea NIL y vale NIL si 
todos sus argumentos lo valen. 

+ (OR (NULL ' (A)) (CAR ' (B C))) 
vale B, pues (NULL ' (A)) es NIL, pero (CAR 
' (B C) es B, que es distinto de NIL. 

La funcion NOT vale T, si el valor de su ar 
gumenfo es NIL, y vale NIL cuando el valor 
de su argumento no sea NIL. 

Si has estado jugando con el genio de MI¬ 
NILISP habeas visto que no es necesario que 
le digas que escriba un valor para que lo ha- 
ga. Sin embargo, todos los mensajes que apa- 
recen en la pcntalla pueden ser molestos en 
ciertas ocasiones (cuando quieras que tu pro- 
grama renga una «salida>; agradable, por 
ejemplo). En ese caso, si escribes (PREVAL NIL) 
suprimirds todos los mensajes que el genio te 
muestra en panfalla (excepio su saludo de «lis- 
to»). Cuando quieras que los mensajes apa- 



rezean de nuevo escribe (PREVAL T), por ejem¬ 
plo. Si has quitado los mensajes, el genio no 
escribira nada si tu no se lo dices. Para eso 
estan las funciones de entrada y salida de da¬ 
te por pantalla; PRINT, PRINT!, TERPRI y 
READ, 

La funcion PRINT escribe el valor de su uni- 
co parametro y no salta de linea. Como toda 
funcion LISP, debe tener un valor que es el de 
su argumento. Si escribes: 

+ (PREVAL NIL) 

+ (PRINT ' ESCRIBO) 

aparecera en pantalla. 

+ 

pues no ha saltado de linea. La funcion PRINT! 
es igual que PRINT, pero con salto de linea. 
Luego: 

+ (PRINT1 ' ESCRIBO) 

1SCRIBO 


+ 

La funcion TERPRI no tiene pardmetros, va¬ 
le NIL y su efecto es producir un salto de li¬ 
nea. 

Para leer una S-expresion se utiliza la fun 
cion READ, que tampoco tiene pardmetros y 
cuyo valor es la S-expresion que ha leido. 

+ (PRINT1 (READ)) 

+ 

y se queda esperando que le des una S- 
expresion. Dale cualquiera, por ejemplo: 

- SCRIBE) 

(ESCRIBE) 


+ 

Ofra funcion de entrada/salida es CLS. La 
llamada: 

+ (CLS; 

borra la pantalla, 

Antes hable de los programas que podian 
ser generados y evaluados desde otro progra- 
ma LISP. Construir programas ya sabemos 

+ ST' 

vale (SUMA 2 2), pero no 4. Para evaluar es- 
ta lista se utiliza una nueva funcion, llamada 
EVAL. 

> (EVAL (LIST ' SUMA 2 2) 

si vale 4. 

Explicare ahora el ejemplo que abre este ar- 
ticulo. 


+ (DE EQUAL (SEX1 SEX2) 

+ (COND ((ATOM SEX1) (EQ 
SEX1 SEX2)) 

+ ((EQUAL (CAR SEX1) 

(CAR SEX2)) 

+ (EQUAL (CDR SEX1) 

(CDR SEX2))) 

+ (T NIL) 


+) ) 

EQUAL es una funcion con dos pardmetros, 
dos S-expresiones cualesquiera. Su valor es T 
si las dos S-expresiones SEX! y SEX2 son igua- 
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les y NIL en otro caso. Si el primer SEXo es un 
atomo entonces el valor de EQUAL es el de 
(EQ SEX1 SEX2). Recordemos que EQ era cier- 
to, T, si sus dos argumentos eran dos dtomos 
literales iguales y NIL en otro caso. Por tan 
to, si SEX2 no es un atomo literal o, siendolo, 
es disfinto de SEX1 no es un atomo, pero si lo 
es SEX2 entonces el valor de EQUAL es NIL, 
como debe ser. Si ninguno de los SEXos es un 
atomo, entonces ambos deben ser pares o lis- 
tas. Ninguno puede ser la lista vacia (pues (), 
o NIL, tambien es un atomo) luego podemos 
tomar sus CAR y sus CDR. Para que dos listas 
sean iguales elemento a elemento debe ocu- 
rrir que tengan el primer elemento igual y los 
restos de sus listas tambien sean iguales. Si sus 
prirneros elementos no son iguales entonces las 
listas ya no serdn iguales. 

El esquema de la funcidn EQUAL represen- 
ta una forma usual de programar en LISP: 

Para calcular el valor de una runcion apli- 
cada a una lista hacer: Mientras la lista no sea 
vacia hacer: 

Aplicar aiguna operacion sobre el primer 
elemento de la lista; aplicar la funcion al res- 
to de la lista. 

La funcion EQUAL es una funcion del siste- 
ma y que no es necesario que la programes. 
Sin embargo, si quieres ver como funciona 
puedes definirla con otro nombre. Dor ejem- 
plo, IGUALES: 

+ (DE IGUALES (SEX1 SEX2)... 

Ahora escribe 

+ (TRACE ' (IGUALES)) 

y llama a IGUALES con algunos argumen- 
tos algo complicados. 

4 (IGUALES ' (A (B (C.D) E) () F) 

+ ' (A (B (C.D) E) ())) 

Iran apareciendo en pantalla los sucesivos 
argumentos de la funcion IGUALES y sus res- 
pectivos valores. Cuando ya no quieras ver la 
«traza» (TRACE) de la funcion, puedes es- 
cribir: 

+ (UNTRACE ' (IGUALES)) 

La funcion IGUALES, tal como esfb defini- 
da, no funciona para numeros, es decir: 

+ (IGUALES 5 5) 

vale NIL. 


Edicion 

de programas 


Existen en MINILISP alaunas facilidades pa¬ 
ra una mejor escritura de programas: 

i) ' SEX es una abreviatura de (QUOTE 
SEX). 

El simbolo ' no puede former parte de un 
identificador pues PEPE'S es interpretado por 
MINILISP como: 

PEPE (QUOTE S) 

ii) % hace que MICROLISP ignore el resfo 
de la linea. Sirve para escribir comentarios. 

iii) y cierra todos los parentesis que que- 
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dan por cerrar. Se produce un error si ya es- 
taban todos cerrados. 

La edicion de programas LISP es una tarea 
costosa, de manera que MINILISP no lleva in- 
corporado editor. Por ello te recomendamos 
que cuando sepas que vas a escribir lo hagas 
con un editor de textos y luego le pases el fi- 
chero donde estd tu programa a MINILISP 
[luego explicaremos como puede hacerse es- 
to]. Desgraciadamenfe los programas no sue- 
len funcionar a la primera, asi es que tendras 
que corregirlos y suele ser mas comodo ha 
cer esto ayudado por MINILISP. Para ello te 
recomendamos que sigas los siguientes pasos: 
jrr la definicidn incorrecfa con la 

llamada: 


(REMPROP' < nombre 4 'EXPR) 

donde < nombre 4 es el nombre de la fun¬ 
cion erronea. Esta llamada devuelve la 
Iambda-expresion que define a la funcion. 

2, Escribe 

(PUT'< nombre 4 'EXPR' 

y a continuacion copiar con las teclas del cur¬ 
sor la Iambda-expresion que obtuvimos antes, 
corrigiendo la parte que este mal. [Si la defi- 
nicion es muy larga y no cabe en 255 carac- 
feres tendras que pulsar aiguna vez la tecla 
[ENTER], pero ten cuidado de no partir algun 
identificador ya que, entonces, MINILISP lo 
consideraria como dos dtomos]. 

Te puedes evitar escribir los parentesis 


finales si escribes e! si'm 


4. Pulsa [ENTER], 


Funciones 

de comunicacion externa 


MINILISP puede mantener abiertos un fiche- 
ro de entrada, uno de salida y una impreso 
ra. Para abrir y cerrar estas vias de comuni 
cacion se utilizan las funciones OPEN y CLO¬ 
SE. Las dos funciones son de lipo e.s. 

OPEN tiene dos argumentos. El primero de¬ 
be tener como valor un atomo, que junto con 
la extension .LIS se considera como nombre 
del fichero. El segundo argumento es el mo 
do de operacion: INPUT, OUTPUT, DEES, 
PROPS o PRINTER. 

Si el modo es INPUT el fichero se abre co¬ 




mo fichero de entrada [desde disco o < 

En este modo, cada vez que MINILISP inten 


te leer lo hard del fichero establecido. Cuan 


do se alcanza el final de fichero, automatics 
mente MINILISP vuelve a esrablecer comofi- 


chero de entrada el teclado de la compute- 


dora [este hecho lo advierte con un pith 
ra detector el final del fichero se puede utI- 
zar la funcion EOF, que no tiene argumentos 
Su valor es T, si se ha alcanzado el final dei 
fichero, y NIL en otro caso. 

Si el modo es OUTPUT, se abre el fichero 
como fichero de salida y todo lo que Mil'S 
LISP envie a pantalla lo mandara tambien o' 
fichero. 

Con el modo DEFS se abre un fichero de sa 
iida en el que se guardan las definiciones de 
las funciones de usuario que MINILISP conozco 
hasta ese momento. Cada definicion se guar- 
da escrita en la forma (DE f (xl...xk) c) por 
lo que se genera un fichero que puede ser 
«comprendido» por MINILISP. 

Si el fichero se abre en modo PROPS, es con 
siderado como fichero de salida y en el que 


se escriben las propiedades de los identifiers- 


dores que MINILISP conozca hasta el momen¬ 
to. Estas propiedades se guardan en la forma 
(PUT "id 'prop 'val) con lo que se genera un 
fichero que puede ser leido por MINILISP. De 
esta forma se puede preservar el contexto ac¬ 
tual y reanudar posteriormente la sesion des¬ 
de el punto en el que dejo. Para ello bastara 
hacer (OPEN ' < nombre + INPUT) donde 
< nombre 4 es el nombre del fichero [sin a 
extension, ya que se asume .LIS], 

El modo PRINTER sirve para mandarlosc- 
Iida por pantalla tamoien a lo impresora. Ade- 
mas, si se abre algun fichero en los modo 
DEFS o PROPS, aquello que se escribo tam¬ 
bien en estos ficheros se manda a la impreso¬ 


ra. 


La funcion CLOSE cierra el fichero que este 
abierto con el modo especificado por su po- 
rametro. El valor del argumento debe ser 
PUT, OUTPUT o PRINTER. Tiene como valor 
el de su argumento. 

La funcion CAT, que no tiene parametros, 
sirve para obtener un catalogo del disco o lo 
cinta. Si se esta utilizando cinta debe pulsa'se 
la tecla [ESC] para terminar el catalogo. Si se 
usa disco esto no es necesario. 
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Un completo poquete do desorrollo que incluye: MS-MACRO AS¬ 
SEMBLER; MS-LINK, MS-LIB, MS-CREF y DE8UG. 

PVP: 12.000.- Ptas. (+ IVA) 


Reconocido como el esfondar mundiol de los lenguojes inferpretes 
poro mxfoqrdenodorei, Facil de oprender y utilizar, 

PVP: 15.100.- Pts. (+ IVA) 


Tololmente compatible con el MBASIC Interpreter pero con una ve- 
tacidod de ejecucion de 3 o 10 veces mos rapido. Traduce el codi 
go fuente o cbdigo objeto y permite una utilizocion mos eficaz del 
espocio. 

PVP: 15.100.- Ptas. (+ IVA) 


lenguaje COBOL segun el estandor ANSI, especialmen- 
te util pora manejar grandes volumenes de dofos. 

PVP: 48.500.- Ptas. (+ IVA) 


Flexible progromo de ordenacidn segun la tecnica de la . 
‘nsercion blnorio, utilizable independlentemente o mclui- 
ble en programas escrifos errMSKICWM. 



El Generodor de Programas por excelencio. Permite crear bases de 
dates reloctenodos a partir de comondos senciilos y sin requerir co- 
nocimientos de progromacion. Las oplicaciones de dBASE II son in- 
contables y cado usuario puede desarrollar las que mejor se adap- 
ten o sus necesidades; ficheros y mailings, contabilidodes, nominas, 
control de costos, control de olmacen, foduradon, etc. Ampliamen- 
te acreditodo como uno de los programas mos utiles y recomenda- 
bles de cuanios existen para microordenadores. Manual en caste' 
llano. 

PVP: 17.800.- Ptas. (+ IVA) 


Progroma interodivo paro la creacion y edicion de groficos y d*a- 
gramos. Tres elementos boskos —Knees, texto y simbolos- son uli- 
lizados paro praducir groficos de alta calidod... logos, diogramas 
bloques, diagramos de flujo, etc. Los simbolos, lipos de letro y 
estilos de lineas, pueden alterarse y modificarse a voluntod del 
usuorio. 

PVP: 15.100.- Pts. {+ IVA) 


Generodor de grafkos -de lineos, borras, columnos y de pastel- 
de muy sencillo manejo. Permite induir textos y leyendcs con gran 
flexibilidad de creacion y edicion. 

PVP: 15.100.- Ptas. (+ IVA) 


El mos rapido PA5CAL existente con imp'emenlodon complete del 
estondor ISO. Un eompilodor de codigo nolivo que genera - n for¬ 
mate reubicable para usor con su montodor de enlace (linker). 

PVP: 15.100.- Ptas. (+ IVA 


Version mejorada del dasico lenguoje CBASlC, con mayor velocr- 
dad de ejecucion y oltamente flexible disenodo especolmenle pora 
el desorrollo de progromos de gestion. Incluye el linker LK-80, que 
combio lo solido del eompilodor con !o rufirtos de bibliofeca y per¬ 
mite el encadenamiento dejnddulos. 

PVP: 15.100.-Pfas7 (+I.VA.) 


PVP: 15.100.- Ptas. (+ IVA) 
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Manual de Minilisp 

Ofrecemos aqut un manual de referenda que 
sirva sabre todo, cuando ya domines el lenguaje, 
para resolver todas aquellas pequenas dudas que 


siempre surgen. 


R. G. Bernal 


1 


^MINIUSP; Es el encargado 
de cargar el resto del programaj 
Tambien inicializa el tamano de la ta- 
bla de si'mbolos. 

2. LISP. BAS: Es el interprete de 
LISP [en Basic], Permanece constan- 
temente en memoria [no asf el ante¬ 
rior, que se borra al cargarse este]. 

3. LISP. DAT: Este es un fichero 
ASCII que contiene los datos necesa- 
rios para rellenar el contexto inicial. 

4. ERRLISP. BAS: Contiene la par¬ 
te de gestion de errores y mensajes 
del sistema. Se cargo tras borrar de 
la memoria la rutina de inicializacion 
de las estructuras. 


datos primitives 


Todas las consecuencias adm’sibles por MI¬ 
NILISP son expresiones simbolicas [$- 
expresiones]. Entre estas podemos distinguir 
varies fipos y sus reconoceaores: 

S-expresiones: 

— Atomos: ATOM 
— Literales: UTATOM 
— Numeros: NUMBERP 
— Pares: PAIRP 

Sintaxis de las S-expresiones 

Para definir la sintaxis de un len 
guaje de programacion se suelen uti 
lizar algunos formalismos corno las 
reglas de Backus-Naur o los diagra- 
mas sintacticos. Aqu! emplearemos el 
primero de ellos. 

Las reglas en forma de Backus- 
Naur [reglas FBN] constan de tres 
partes: un lado izquierdo, que es lo 
que se quiere definir: el simbolo :: =, 
y un lado derecho, que es la defini 
cion. Los objetos que se quiere defi¬ 
nir se suelen encerrar entre los sfm- 
bolos < y >, por ejemplo < 
Numero2 > . La yuxtaposicion de ob¬ 
jetos [escribir uno al lado de otro] in- 
dica que a continuacion de un obje- 
to del primer tipo se escribe uno del 
segundo. Por ejemplo: 
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: = < 


Marca + 


< Numero2 > ::= < 

Dfgito > < Dfgito > 
indica que un objeto de tipo 

< Numero2 > se representa por un 
objeto de tipo < Dfgito > seguido 
por otro del mismo tipo. La barra 
vertical ! actua como disjuntor [0 lo- 
gico], Por ejemplo: 

< Digito > ::= 0 ! 1 ! 2 I 3 ! 4 ! 5 ! 

6 ! 7 ! 8 ! 9 

quiere decir que un objeto de tipo 

< Dfgito > es o bien 0, o bien 1, o 
bien..., o bien 9 Entonces, ejemplos 
de objetos de tipo 

< Numero2 > serfan 5, 13, 17, 80, 
01, 00 y 99. 

Otros si'mbolos que se usan en las 
reglas FBN son [, ] y {, }, Los nom- 
bres de objetos se encierran entre 
corchetes para indicar que es opcio- 
nal escribirlos o no. Por ejemplo: 

< Numero2—con— sig- 

no >:: = [< Signo > ] < Numero2 > 

quiere decir que un objeto de tipo 

< Numero2—con—signo > es un 
objeto de tipo < Numero2 > que 
puede ir precedido o no de un sig 
no Si definirnos: 

< Signo > :: = +1— 
entonces ejemplos de objetos de ti¬ 
po < Numero2—con—signo + son 
-34, +13, -00, +00, 00, 99 y 17. 

Las Haves { y } indican que el obje¬ 
to al que encierran se puede repetir 
tantas veces como se quiera. Por 
ejemplo: 

< Numero—sin—signo s: = < Dig 

ito + {< Dfgito 

quiere decir que un objeto de tipo 

< Numero2—sin—signo + es una 
secuencia de objetos de tipo 

< Dfgito + de cualquier longitud [de- 
be tener al menos un dfgito]. Por 


» 

1 


dras problemas en comprender los 
reglas FBN que definen la sintaxis de 
las S-expresiones y que damos a con¬ 
tinuacion. Sin embargo, si no las en- 
tiendes no te preocupes, pues mos 
adelante se dan ejemplos. 
<S-expresi6n + :: = < Atomo + ^ 
I < Par + I < Lista + 

< Atomo + = < Literal + 

I < Numeral + 

< Literal 

< Atomo + 

< Numeral + :: = [ < Signo + ] <Df¬ 
gito + {< Dfgito + } 

< Par + :: = ( < S-expresion + . <S 
expresion +) 

< Lista + :: = () I (< Lista—de— obje¬ 
tos + 

< Lista —de —objetos + <S- 

expresion + { < Lista — de- 
objetos +} 

< Marca + ::=<Letra + 

< Simbolo + 

< Dfgito + :: = 0 I 1 I 2 I 3 I 4 I 5 l 6 
I 7 I 8 I 9 

< Signo -i :: = + I — 

< Let a + :: = A I B I C I 
I H I I I J 


D 
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< Simbolo + ::=M"I#I$I&I 

I + I , I / I : I ; I <1 = 1+ I ? I «[ I ( 

I ] I ? I — I {I I 1} I # Observese que 
como sfmbolos no se admiten: 

— Operador unario: — 

— Contraccion de QUOTE: . 
— Terminador de parentesis: 

— Comentario: % 

— Punto del par: . 

Veamos algunos ejemplos: 

Literales 

suma + suma—1- ES—suma? 
+ suma *no—Suma dolar$ 

Numerates 

00000000 1523 -153 00 

0000001 32767 -32768 
[En MINILISP los ceros a la izquier- 
da no sirven para nada. Hay que no¬ 
tar tambien que numeros mayores 
que 32767 o menores que —32768 
daran un error 6 de desbordamien- 
to numerico.] 

Atomos 

Todos lov ejemplos anteriores lo 
son tambien de atomos, pues losoto- 


ejemplo, 12345567890 / son lamQitJf] ut; oiomoby fjucs iusuiv. 

11 11111111111111111 1111II1 mos o son literales o son numerales 
1111111111, etc. Aunque concep- Pares 

tualmente el tamano del objeto no (suma, + ) (UNO. l) (PAR. [u.no.l)j 
este lirnitado, fsicamente si que lo es- ((par. de). (dos.pares)) 
ta (numero de bytes de un compu a- (JOSE, (quiere.(a.(ANA.NIL)))) 
dor, numero de folios que puedes es- Listas 

aibir, etc.). (JOSE q ier ANA) ((LISTA.DE) 

Si has entendido todo esto no ten- (DOS.O) (TRES.PARES)) 
















(LISTA (DE (LISTAS (DE (MAS) LIS- 

IAS))}) 

S-expresiones 

odos los ejemplos lo bon tambien 
de j-expresiones, por la primera re¬ 
gia. 


* 


3. 4 Constantes predefinidas 


JBL 

En el contexto inicial de MINILISP 
sehan introducido un reducida con- 
junto de constantes necesarias para 
el uso del interprete. Podemos divi- 
dlrias en dos tipos, segun que tengun 
o no atribu o VALUE: 

.. Constantes con valor: 

NIL: valor NIL 
T: valor I 
PIZQ: valor ( 

PDER: valor) 

2. Constantes sin valor: 

value, lambda, fsubr. 

EXPR, FEXPR y MACRO. 


SUBR, 


I 




E 


4.° Lista de objetos y listas de 
propiedades 


MINI! SP mantiene una lista de los 
dentificadores conocidos hosta el 
momento de una tabla hash En cual 
quier momento es posible ver el con 
tenido de esta tabla mediante la lla- 
mada. 

(OBLIST) 

Sin embargo, por razones de eco- 
nomia de memoria y de velocidad de 
proceso, la lista de objetos no se 
mantiene en una lista LISP por lo que 
OBLIST tiene valor NIL y como efec 
to colateral la impresion de la tabla 
de identificadores. 

MINILISP inserta un identificador 
en la tabla de smnbolos solo y cuan- 
do este no se encuentra ya en la ta¬ 
bic. Por tanto, el predicado de igual- 
dad de atomos, EQ, se implementa 
mediante la comprobacion de igual 
dad de punteros. Por este motivo, 
t‘ : no es valido para verificar ni la 
igualdad de pares ni la de numeros. 
Para pares debe utilizarse la funcion 
EQUAL. La igualdad entre numeros 
S : comprueba con el predicado = . 
Funeiones que modifican la lista de 
objetos: 

(REMOVE id) id debe evaluar a un 
atomo. Tiere como efecto suprimir el 
identificador id de la lista de objetos. 
Su valor es NIL. 

REMOVE 'PRIMERO) eliminarla el 
atomo PRIMERO de la lista de obje¬ 
tos y hace inaccesibles todas sus pro- 

. piedades. 


(COMPRESS lis) lis debe tener como 
valor una lista de atomos, debiendo 
ser el primero de estos un atomo li¬ 
teral. Comprime la lista para formar 
un identificador literal. El atomo re- 
sultante se coloca en la lista de obje¬ 
tos y se devuelve como valor de la 
funcion. 

(COMPRESS '(VAR 1 4)) devuelve 
como valor VAR 14 a la vez que ir, 
serta este atomo en la jjst’a de obje 
tos (si no estaba ya). 

(EXPLODE id) id debe evaluar a un 
atomo Tiene el efecto contrario a 
COMPRESS: genera la lista de los ca- 
racteres que componen id, que se da 
como valor de la uncion 

Los caracteres que no son digitos 
se colocan en la lista de objetos. 

(EXPLODE 'PALABRA) vale (P A L 
A B R A) y coloca los atomos P, A, 
L, B y R en la lista de objetos (si aun 
no estaban) 

(EXPLODE 'VAR14) vale (V A R 1 
4) e introduce los atomos V, A y R en 
la lista de objetos (si no estaban). 

(EXPLODE 'A-Z) vale (A l-Z) pues 
el simbolo - no esta permitido como 
atomo 

Listas de propiedades: 

MINI LI SP mantiene una lista de 
propiedades (atributo ) para cada 
identificador presente en la lista de 
objetos. 

Existen tres funeiones en MINILISP 
encargadas de crear, consultar y 
modificar listas de propiedades. To¬ 
das elias evaluan sus argumentos: 

(PUT id prop val) Coloca el resultado 
de evaluar val como valor de la pro- 
piedad prop del identificador id. Si 
ya existia la propiedad, da error y 
no modifica el valor de prop. 

(PUT 'PRIMERO 'EXP' (LAMBDA 
(LIS) (CAR LIS))) coloca la lambda' 
expresion (LAMBDA (LIS) (CAR LIS) 
como valor del atributo EXPR en la 
lista de propiedades del identificador 
PRIMERO. El valor que devuelve es 
PRIMERO. 

(GET prop id) Devuelve el valor de la 
propiedad prop en la lista de propie¬ 
dades de id (o NIL si no aparece en 
la lista de propiedades de idj. 

(GET 'EXPR 'PRIMERO) vale 
(LAMBDA (LIS) (CAR LIS) si se hizo 
la instruccion anterior y NIL si no 
existe la propiedad EXPR de PRIME¬ 
RO. 

(REMPROPid prop) Elimina prop y su 
valor vol de la lista de propiedades 
de id. 

Devuelve val [o id y un mensaje si 
prop no existia como propiedad id 

'REMPROP 'PRIMERO 'EXPR) e 
mina la propiedad EXPR de la lis 


de propiedades de PRIMERO, y tie¬ 
ne como valor la S-expresion (LAMB 
DA (LIS) (CAR US)). Si despues de es¬ 
ta llamada se hace (GET 'EXPR 'PRI¬ 
MERO) se devuelve el valor NIL pues 
ya no existe la propiedad 'FXPR. 


S.° Definition de funeiones y 

macros 


Funeiones: 

De los cuatro tipos posibles de fun- 
ciones en LISP [segun que se evaluen 
o no los argumentos y que el nume- 
ro de estos sea fijo o variable] solo 
dos son directamente definibles en 
MINILISP: eval-spread [evalua y nu- 
mero de argumentos fijo] y noeva! 
nospread [no evalua y numero de 
argumentos variable]. Ninguno de 
estos «definidores» evalua sus argu¬ 
mentos: 

(DE f (xl... xr ) c) Define la funcion f 
como de tipo e.s. con variables for¬ 
mats xl, ..., xn y cuerpo c. Tiene co¬ 
mo valor f y su efecto es poner la 
lambda-expresion (LAMBDA (xl ... 
xn) c) como valor del atributo EXPR 
de f. 

(DFf(l)e) Define la funcion f como 
de tipo n.n. con cuerpo c y lista de 
argumentos 1. Su efecto es poner la 
lambda-expresion (LAMBDA (1) c) 
como valor de la propiedad FEXPR 
de f. Tiene como valor f. 

Macros: 

Es este un tipo especial de defini 
cion. En MINILISP se puede utilizar 
mediante la funcion DM con la si- 
guientes sintaxis: 

(DMf(l)c) No evalua sus argumen¬ 
tos. Tiene valor f y como efecto po¬ 
ne la lambda-expresion (LAMBDA 
(1) c) como valor del atributo MA¬ 
CRO de f. 

Las llamadas a una macro son de 
la forma: 

(f el... en) (n cualquiera) 

v se evaluan en dos fases: 

i) Se evalua c en un contexto am- 
pliado con la ligadura de 1 a la for¬ 
ma (f el... en). 

ii) Se evalua la forma obtenida en 
i.) siendo el resultado el valor de la 
llamada. 

Un ejemplo de macro es la funcion 
LET: 

(DM LET (LA) (CONS (LIST 'LAMDA 
VARIABLES (PARES LA)) 
(EXPCUALIF LA)! 
(EXPRESIONES (PARES LA)))) 
siendo 
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(DE PARES (U) (RESTO (RESTO U))) 
(DE VARIABLES (LISPAR) 

(COND ((NULL LIS PAR ( ()) 

(T (CONS (VAR (PRIME- 
RO L’lSPAR)) 

(VARIABLES 

(RESTO 

LISPAR)))) 

(DE EXPRESIONES (LISPAR) 
(COND ((NULL LISPAR) ()) 

(T (CONS (EXP (PRIMERO 
LISPAR)) 

(EXPRESIONES 
(RESTO 
LISPAR)))) 


)) 


(DE EXPCUALIF (U) (SEGUNDO U)) 
(DE VAR (PAR) (PRIMERO PAR)) 
(DE EXP (PAR) (SEGUNDO PAR)) 
(DE PRIMERO (LIS) (CAR (LIS) 

(DE SEGUNDO (LIS) (PRIMERO 
(RESTO LIS))) 

(DE RESTO (LIS) (CDR LIS)) 


Supongamos que queremos eva- 
luar la expresion: 


(LET (LIST U V U) 

U (CAR '(A B C))) 
(V (CDR '(D E F)))) 


En la base de estas construcciones 
se hallan las funciones de asignacion: 
(SET el e 2) De tipo e.s., la evalua¬ 
cion de el debe ser una variable for¬ 
mal o declarada, Liga al valor de el 
el de e2 y devuelve como valor el de 
e2. 

(SETQ id e) Es de tipo n.n. Tiene el 
mismo efecto y valor que (SET 'id e). 

Los «constructore$» de instruccio 
nes iterativas son dos, ambos de ti¬ 
po n.n.: 

PROGN el... ek) 

Permite la liamada consecutive a 
varias funciones, Tiene como valor el 
de ek [el, e(k-1) se evaluan poi 
su « iecto»). 

(PROG (xl...xn) e1...ek) 

xl, xn son las variables loco es 
de la forma PROG (solo se pueden 
utilizar dentro del cuerpo de la ins- 
truccion PROG). Las formas el, ..., 
ek constituyen el cuerpo de la forma 
PROG. 

La lista de variables puede ser (), 
pero debe existir. Las variables du 
una forma PROG se inicializan toda 
NIL. 


d) Si el ultimo argumento de PROG 
ha sido evaluado y no era ni una for¬ 
ma GO ni una forma RETURN enfor¬ 
ces el valor de PROG es NIL. 

e) Si un argumento de PROG es un 
COND y ninguno de sus lados iz- 
quierdos vale T entonces la evalua¬ 
cion continua con el siguiente argu- 
mento de PROG. 

FB ar»cl \ -«jrC-rg 


I 


7.° Arif met ko 
y loglca 



Aritmetica 

Tanto los operadores aritmeticos 
como los relacionales entre nurreros 
son de tipo e.s. [Los numeros se eva 
luan a si mismosj y tienen dos orgu- 
mentos. Son los siguientes: 

(+ el e2) el +e2 
(SUB el e2 el-e2 
(-* el e2) el *e2 
(DIV el e2) el/e2 [division entero) 
(el e2) el e2 
(MAX el e2) el maximo litre el ye2 




En el primer paso se da como va¬ 
lor del pardmetro LA de la funcion 
LET el valor 


(LET (LIST U V U) (U (CAR'(A B C.))) 
(V CDR '(D E F)))) 

y se evalua de forma usual el cuer¬ 
po de la funcion LET. El resultado de 
esta evaluacion es: 

(LAMBDA (U V) (LIST U V U) (CAR 
'(A B C)) (CDR '(D E F))) 


En el segundo paso se evalua esta 
expresion dando como valor 


(A (E F) A) 


UL Las formas que aparecen en el 
cuerpo de una forma PROG pueden 
ser: coridicionales, formas aplicati- 
vas, formas RETURN, formas GO, 
etiquetas y asignaciones. 

Las formas condicionales no nece- 
sitan tener un lado izquierda cierlo 
[en una forma condicional fuera de 
un PROG, si todos los lados izquier- 
dos se evaluan a NIL se gene a un 
mensaje de aviso]. En este caso to 
ma el valor NIL y se cede el control 
a la siguiente instruccion. 

(RETURN e) Es de tipo e.s. Termina la 
evaluacion del PROG, devolviendo 
como valor el de e. 

(GO id) Es de tipo n.n. Cede el con 
trol a la instruccion siguiente a la eti- 




Los operadores relacionales on: 


+ 


+ = < = 


Logic a 


que pasa a ser el valor de I 
LET. 


i fu 


ncion 


queta id 
ta es cua 


para MINILISP, una etique- 


Si id 


no 


6.° Construcciones 
iterativas 


Aunque la programacion impera¬ 
tive no es necesaria en un lenguaje 
funcional como LISP su uso, no obs¬ 
tante, esta justificado en un peque- 
no computador como en el que se 
ejecuta MINILiSP, tanto por el aho- 
rro de memoria [que no es excesiva 
y no se puede «derrochar»] como de 
tiempo (no prolongar mucho progra- 
mas ya que de por si lentos]; incluso 
hay problemas tecnicos [como el del 
tamano de la pila que sop^ rta la re¬ 
cursion]. 


quier atomo literal 
es una etiqueta o no existe dentro de 
la forma PROG se genera un error. 

Los argumentos de PROG son eva- 
luados uno tras otro, a partir del se¬ 
gundo [el primero es la lista de va¬ 
riables], con las siguientes excepcio- 
nes: 

a) Un argumento atomico no se 
evalua: se considera como una eti¬ 
queta. 

b) La evaluacion de la funcion GO 
hace que LISP continue la evaluacion 
de PROG tras la etiqueta que es el 
argumento de GO. 

c) Si la funcion RETURN se evalua, 
entonces acaba la evaluacion de 
PROG, y el valor de la funcion PROG 
es el valor del arqumento de RE 
TURN. 


Las funciones logicas existentespn 
MINILISP son: 

(NOT e). Es de tipo e.s. Coincide 
con la funcion NULL: vale T, si ,EQ 
e NIL), y NIL, en otro caso. 

(ANDel...ek). Es de tipo n.n. Pa¬ 
ra calcular su valor se evaluan lasei 
en orden, desde la izquierda hacia 
la derecha. Si alguna da NIL se de- 
vuelve NIL y no se evaluan las de¬ 
mos; si no, se devuelve T. 

(OR el ... ek). Es de tipo n.n. Para 
calcular su valor se evaluan en orden 
las ei. Devuelve el valor del primer 
ei que no sea NIL, o NIL si todos los 
ei valen NIL. 


8.° Funciones MAP 


argumento d 

I* 21c 




Las mejoras introducidas en esta 
nueva version de MINILISP permiter 
que se utilicen argumentos funcionc- 
$, de ahi que se- posible la defim- 
cioh de funcion s map. Por razonss 
de espacio el interprete de MINILISP 
no Neva incorporada ninguna. 

Un ejemplo de funcion map es el 
siguiente: 

(DE MAP (LIS PUN) 
(COND ((NULL LIS) NIL) 

(T (PROGN (FUN LIS) (MAP (RESTO 
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LIS) FUN)) 

) 

FUN es el argumento funcional, es 
dear, el valor de FUN es o bien el 
nombre de una funcion o una 
ambda-expresion. Entonces (FUN 
LIS) quiere decir que el valor de FUN 
se aplica al valor de LIS [se espera 
que LIS sea una lista]. Otros ejemplos 
de funciones MAP pueden verse en 
elfichero de eiemplo SURTIDO.LIS. 


3. Te puedes evifar escribir los pa- 
rentesis finales si escribes el simbolo 


X 


4. 


Pulsa ENTER. 


10.° Entrada y salida 


9,° Funciones de edicion 


Existen en MINILISP una serie de 
facilidades para la mejor escritura de 
p ogramas: 

i) 'SEX es une abreviatura Je 
(QUOTE SEX) 

El simbolo ' no puede forrnar par¬ 
te de un identificador pues PEPE'S e 
interpretado por MINILISP como: 

PEPE (QUOTE $) 


(^ '■ - 'Z\ 

(READ). No tiene argumentos. Su 
valor es la primera S-expresion que 
lee del dispositive ac uni de entr.- da. 

(PRINT e). Es de tipo e.s. Escribed 
con salto de linea, e! valor de e, que 
tambien es el valor de la funcion. 

(PRINT1 e). la ual que PRINT, pe- 
ro sin salto de Tinea. 

(TERPRI). No tiene argumentos. 
Tiene como valor NIL y como efecto 
produce un alto de linea err los dis- 
positivos de salida establecidos. 

(SPACE e). Es de tipo e.s. El valor 
de e debe ser un numero que es el 
numero de caracteres blancos que 
deja. [No tiene salto de linea]. El va 
lo de la funcion es el mismo que el 




_ f* _ 

ii) % hace que MICROLIS! igno- de e. 
re el resto de la linea. Sirve para es¬ 
cribir comentarios. Funciones de comunicacion 

iiii cierra todos los parentesis externa 
que quedan por cerrar. Se produce „ 

jn e ror si ya estaban todos cerra- MINILISP ouede rnante ier abier- 
dos. un fichero de entrada, uno de sa- 

■ La edicion de programas LISP es . Tidayuna impresora. Para abriry ce¬ 
de manera que rar estas vias de comunicacion se 
utilizan las funciones OPEN y CLO 
SE. Las dos funciones son de tipo e«%. 
OPEN tiene dos argumentos. El 
_primero debe tener como valor un 
atomo, que junto con la extension 


una tarea costosa, de manera que 
MINILISP no lleva incorporado edi¬ 
tor. Por ello te recomendamos que 
cando sepas que vas a escribir lo 
^agas con un editor de textos y lue 
go le pases el fichero donde esta tu 
programa a MINILISP. Desgraciada 
nnente los programas no suelen fun- 
cionar ada primera, asi es que ten- 
dras que corregirlos y suele ser mas 
comodo corregirlos ayudado por 
M.NTISP. Para el lo te recomenda 
mos que siga os siguientes pasos: 

Borra la definicion incorrecta 
con la llamada: 

[REMPROP *< nombre + 'EXPR) 

donde < nombre + es el nombre de 
la funcion erronea. Esta llamada de¬ 
ceive la lambda-expresion que de¬ 
fine la funcion. 

2. Escribe (PUT* \< nombre + 
.EXPR' y z continuacion copiar con 
las tedas del cursor la lambda- 
expres; '>n que obtuvirnos antes, co- 
rrigienoo la parte que este mal. [Si 
la definicion es muy laraa ymo cabo 
en 255 caracteres tencJras 


' 


LIS se considera como nombre del 
fichero. El segundo argumento es el 
modo de operacion: INPUT, OUT¬ 
PUT, DEFS, PROPS o PRINTER. 

Si el modo es INPUT el fichero se 
abre como fichero de entrada [des- 
de disco o cinta]. En este modo, ca 
da vez que MINILISP intente leer lo 
hard del fichero establecido. Cuan 
do se alcanza el final de fichero, 
automaficamente MINILISP vuelve a 
establecer como fichero de entrada 
el teclado de la computadora [este 
hecho lo advierte con un pitido]. Pa¬ 
ra detector el final del fichero se pue¬ 
de utilizar la funcion EOF, que no tie¬ 
ne argumentos. Su valor es T, si se 
ha alcanzado el final del fichero, y 
NIL en otro caso. 

Si el modo es OUTPUT, se abre el 
fichero omcr fichero de salida y to- 
do lo que MINILISP envie a pantalla 

..... . A .L _i d-L. 


'rdsqueput^y'- 

oralguna vez la tecla [ENTER], pe lo mandard ambien al fichero. 
ro ten c idado de no partir algun Con el modo DEFS se abre un n- 
identificacfor ya que, entonces 7 Ml- chero de salida eFt el que se guardan 
Nil ISP lo consideraria como dos ato las definiciones de las funciones de 

usuario que MINILISP conozca has- 


O "'\Vmos] 


fa ese momento. Coda definicion se 
guarda MINILISP conozca hasta ese 
momento. Cada definicion se guar 
da en la forma (DE f (xl... xk) c) par 
lo que se genera un fichero que pue 
de ser «comprendido» por MINILISP. 

Si el fichero se abre en modo 
PROPS, es considerado como fiche¬ 
ro de salida y en el se escriben las 
propiedades de los identificadores 
que MINILISP conozca hasta el mo¬ 
mento. Estas propiedades se guar¬ 
dan en la forma (PUT 'id 'prop 'val) 
con lo que se genera un fichero que 
puede ser leido por MINILISP. De es¬ 
ta forma se puede preservar el con 
texto actual y reanudar posterior- 
mente la sesion desde el punto en el 
que se dejo. Para ello bastara hacer 
(OPEN '< nombre + 'INPUT) don¬ 
de < nombre + es el nombre del fi 
chero [sin la extension, ya que se 
asume .LIS]. 

El modo PRINTER sirve para man- 
dar la salida por pantalla tambien a 
a impresora. Ademas, si se abre al¬ 
gun fichero en los modos DEFS o 
PROPS, aquello que se escriba tarn - 
bien en estos ficheros se manda a la 
impresora. 

La funcion CLOSE cierra el fichero 
que este abierto con el modo espe- 
cificado por su parametro. El valor 
del argumento debe ser INPUT, 
OUTPUT o PRINTER. Tiene como va¬ 
lor @1 de su argumento. 

La funcion CAT, que no tiene pa- 
rametros, sirve para obtener un ca 
talogo del disco o la cinta. Si se esta 
tilizando cinta debe pulsarse la te¬ 
cla [ESC] para terminar el cafalogo. 
Si se usa disco esto no es necesario. 


11.° Errores 


MINILISP informa de dos tipos de 
errores: los producidos por el y los 
generados por Basic. De estos ulti 
mos solo indica el numero de error 
[estos numeros los puedes encontrar 
en el manual del ordenador]. Los 
errores producidos par Basic suelen 
ser errores numericos [6, 11] o de es- 
pacio para cadenas lleno [14] si has 
utilizada identificadores excesiva- 
mente largos [se ha calculado que 
cada identificador ocupara en media 
8 caracteres], pero eventualmente es 
posible que aparezean errores de 
otro tipo si se ha producido algun fa- 
!lo anterior. 

Los errores generados por fallos 
en los programas LISP estan dacu- 
mentados con mensajes de error y 

_. .1 ■) — —x Tpnjllrili 

M. AMSTRAD ESPECIAL 49 














iNOVEDAD! PARA AMSTRAD 464-664-6128-8256-8512 


MASTER-RENTA 

8512-14.900 

8256-14.900 

6128-14.900 


MASTERCOM 

8512-19 900 
8256-19 900 
6128-19900 


MASTERGEST 

8512-14 900 
8256-14 900 
6128-14 900 


Realize las declaraciones de la Renta, tanto ordinarias como 
simplificadas, pudiendo cubrir los impresos oficiales o realizar 
un listado de los datos, tanto en pantalla como por impresora. 
Realiza todos los calculos en 1 minuto. 

Gestor de efectos comerciales. Contempla descuentos de re¬ 
mesas mlnimos, impagados, liquidos, Itmites de descuentos, etc. 
Por pantalla o por impresora. Clasifica vencimientos, clientes, 
plazas y estudio de costes financieros de las rernesas. 

Control de cuentas corrientes de bancos, Controla todos los 
movimientos realizados, ingresos, pagos, etc., pudiendo cono- 
cer el saldo en cualquier momenta y en el formato del recibo 
del banco con el que este trabajando en ese momenta. Por 
pantalla o por impresora. Saldo general de todos los movimien¬ 
tos y todos los bancos, balance general. 


MASTERBLOCK 

8512- 6.900 
8256- 6900 
6228- 6 900 
464 ■ 2 900 


Agenda telefonica con directorio. Con busquedas por Nom- 
bre, Direccion o Telefonos. Imprirne etiquetas para sobres. 







MASTERIEXT 

6128 4 800 

464 - 3 800 

Utilizable en cualquier tipo de impresora, pudiendo seleccio- 
nar partes del texto en diversos rnodos de escritura: Subraya- 
do, alargado, cambiar margenes, tabulaciones, insertar carac- 
teres o llneas, etc. 

MASIERCOPY 

6128- 3 m 

464 • 2 900 

Copiador de pantalla en cualquier tipo de impresora compa¬ 
tible con AMSTRAD. Trabaja los 3 rnodos de pantalla, pudien¬ 
do elegir la zona de pantalla a copiar. 

MASTERPROFE 1 

6128- 2.900 

464 ■ 1.900 

Programa educative referent© a figuras planas tales como 
triangulos, cuadrados, circunferencias, etc. y volumenes tales 
como esferas, cilindros, piramides, etc., explicando todas sus 
caracterfsticas. 

MASTERQH 

8512 3.900 

8256- 3 900 

6128- 3 900 

464 2.500 

MSX - 2 900 

Control de carreras de caballos con pronosticos tanto indivi- 
duales como conjuntos entre varios caballos. 

Base de datos 200 caballos y 300 carreras. 

TAMBIEN DISPONIBLE PARA MSX. 


MASTERBINGO 

6128- 2 900 
464 - 1 900 


Edita cartones, extracciones de bolas manual o automatico, 
listado de premios y comprobacion, 


MASTER-RULETA 

6128- 2,900 
464-1900 


Es tan real que usted se encuentra envuelto en el casino de 
Montecarlo, 


MASTERHOROSCOPO 

6128 3.600 
464 2.300 


Su astrologo particular: 

Calcula su tabla de nacimiento segun la hora, fecha y lugar 
de nacimiento, dandole datos sobre su personalidad. 
Tendencias del future. 

Algoritmos verdaderos. 


MASTER-RELOJ Reloj programable con aiarma. 

6128 2.500 
464 - I 500 



Centro Comercial Sto. Domingo 

Ctra, Burgos, km 28 

Algete (MADRID), tel.: 622 12 89 


Buscamos distribuidores. 

Envtos contra reembolso a toda Espaiia. 
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Como experimentado merccnario cuidadosamente enlrenado 
§1) las artes marciales, dehes eumplir la misidn quo to ha sido 
encomemlada: rotor el disco que con la informacibn de los re- 
bekles tiene el Gran Dictador. 


ROCK’N^ 

LUCHA 


Ei primer juego de lucha libre hecho para ordenador. Mas de 
25 movimientos diferentes te permitiran hacer todo tipo de Ha¬ 
ves: desde la sujeccion de espaldas hasta la voltereta de hom- 
brus, pasando por los mismos programadores del legendario 
'Exploding Fist”. 


Melbourne 

HOUS* 


THE WAY OF THE TIGER 


Ent a en el mudo de los samurais. Manten la calma mientras 
el movimiento y las rutinas de combate te transportan a nive- 
les que nunca pensaste posibles. Experimenta los sorprenden- 
tes efectos del 'Triple Scroll' mientras intentas mejorar tus 
tecnicas de lucha euerpo a cuerpo. con espada samurai o con 
mil posibilidades mas. 























PING-PONG 


La gran sorpresa. Graficos increibles. movimiento super-rapido, 
podras efectuar las mismas jugadas que si tuvieras la paleta en 
tu mano. 

Boles, rebotes, efectos, dejadas, saques, cortadas, mates... todo 
es posible con esla maravilla llarnada "Ping-Pong" 




KNIGHT GAMES 


Ln desafio medieval en tu ordenador. Transportate a la Edad 
Media y conviertele en caballero de la Mesa Redonda demos- 
trando tus habilidades en el torneo. Lucha a espada. ballcsta, 
lanza, mazas, arco, hacbas y con todas las armas propias de 
aquella fanlastica epoca. 






DISTRIBUIDOR EXCii ] 

ERBE ? S 

C/. STA. Ef i 

28010 ! »| 

TFNO, (9! 


DELEGACIO* 1 
AVDA. MIS 
TFNO. (931 ! 


FRANKIE GOES TO HOLYWOOD 

4 

El juego de los juegos. El que fuera nurnero i indiscutible en 
Spectrum y Commodore, ahora disponible para Amstrad. 

* Mas de 10 juegos diferentes se encierran en “Frankie goes to 
Hollywood’, el programa mas original que hayas visto. 











































RAMBO 


SPECTRUM Dl K-i i 

n 


TURBO ESPRIT 


GUN-FRIGHT 

Ultimate nos ofrece para Amstrad, usando su tecnica Films 
tion, “Gun-Fright”, el juego en el que el lejano oeste es el pro¬ 
tagonists. 

Ponte en el papel de Quikdraw, el sheriff que piensa librar 
ciudad de t<idos los pi. toleros a ! >nios de su buen caballo Pa 
to. 


Tu mision: vigilar y cuidar el cumplimiento de la ley que se ve 
amcnazada por una terrible banda de delincuentes que han 
hccho del trafico de narcoticos su negocio mas rentable. 

Tus medios: un Lotus Turbo Sprit dotado de uno de los maxi- 
mos adelantos tecnicos y con el que deberas patrullar por ca- 
lles y avenidas. 


(CLUJ 


WO PARA ESPANA 
FTWARE 
RACIA, 17 - 
ADRID, 

447 34 10 


3E SO 


M AD 


CION 


BARCELONA, 
IAL, N.° 10. 
432 07 31 


Toda la emocion del film, en tu ordenador. Sientete como 
John Rambo en la jungla victnamita e intenta salvar a tus 
comparieros prisioneros en el campo de concentracidn. 
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Reubicador 

de Programs en C/M 

La REUBICACION de programas en codigo 
maquina se divide en das partes. Primero uno 
tiene que escribir el programa en forma 
REUBICABLE. Entonces uno lo presenta al sistema 
con un cargador de REUBICAR / el cual se ocupa de 
colocar el nuevo codigo junto a cualquier memoria 
ya en i/so, y deja ef sistema tan poco cambiado 
como sea posible. 



reubica por si mismo tiene la marca 
de ser profusional. Una que-no lo ha 
ce es semi-profesional. Para nuestros 
propios usos en casa todos los pro 
gramadores hacemos la reubicacion 
en el momento de ENSAMBLAR: va- 
riando ORG simplemente. Pero es 
como usar una manivela para arran- 
car el coche en lugar de la bateria. 
Reubicacion es la bateria de arran- 
que que quita los problemas en el 
momento de poner el sistema en 
marcha. No obstante, la reubicacion 
es el toque final a un programa, y es 
lo suficientemente dificil (hablando 
del Z80) que no suele aplicarse has- 
ta que el programa este en su forma 
definitiva. 


Putinas en mdquinas 

profesiostasos 


La rutina que transforma un pro¬ 
grama en reubicable se ve en el lis- 
tado de ensamblador. Es el mismo 
que hemos usado en el programa 
HOBBYCOP del numero 27 de la re¬ 
vista, pero entonces figuraban solo 
los bytes del codigo maquina. El use 
de ORG 0 hace que todas las etique- 
tas generadas en la compilacion son 
relativas al principio de la rutina. La 
llamada falsa al firmware fija el va¬ 
lor del PC (Program Counter) que se 
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recupere del stack y se ahade a las 
direcciones relativas necesarias en la 
manera mostrada. El uso de una lla¬ 
mada falsa para fijar PC, como a 
menudo pasa con programacion del 
Z80, es un truco que una vez visto, 
no se olvida. 


Generacion 
de la tdbla 


£,Como se genera la tabla de reu¬ 
bicacion? El programa HOJEA 
MEN.TXT se presenta con su listado 
en el momento de ensamblar. Se ha 
usado GENA de Hisoft --un ensam¬ 
blador de dos pasos— que obliga a 
colocar la tabla de reubicacion al fi¬ 
nal. Se ha usado mayusculas para las 
etiquetas que representan nudos lo 
gicos del programa. Minusculas se 
usan para puntos de entrada desde 
el programa principal (p. ej. Basic) 
y para las entradas en la tabla de 
reubicacion. Estas ultimas se ha da¬ 
do un numero «qq» si corresponde a 
instrucciones de tres bytes, y «rr» si 
son de cuatro. Sus entradas corres- 
pondientes en la tabla son entonces 
qq + 1 y rr + 2. No se reubica las ins 
trucciones son saltos relativos: JR 
DJNZ, etc. Tampoco las llamadas al 
Jump Block (saltos) del firmware: en ■ 
tonces estas se han dejado en forma 
numerica JP # BB33 en lugar de dar 
el nombre JP km.set.control. 

Despues de preparar la tabla de 
reubicacion al final del programa, 
hay que incluirlo en la rutina de reu- 
bicar con algo como el comando 
HOJEAMEM.TXT de GENA o incluir 
lo directamente con un merge. Para 
los que usamos cassette, la segunda 
manera es la mas facil, siempre que 
la memoria lo permife. 


Ahora se ensambla todo. Con 
ORG 0 el codigo objeto hay que 
guardarlo en alguna otra parte de 
la memoria. GENA lo hace con op- 
cion 16. Toma nota de la longitud de 
la TABLE al final del programa. Esta 
longitud se pone ahora en la pseudo- 
instruccion «tabla: DEFS 76» - 76 
era la longitud para el ejemplo final, 
pasando los bytes de la «TABLE» a su 
nueva posicion «fabla» para que no 
ocupen memoria indebidamente des¬ 
pues de ser usados. Seran tirados 
con la basura. Una manera de ha- 
cerlo se da al final de la rutina de 
reubicar. 


Programa HOJEAMEN 


Un ejemplo de un CARGADOR de 
reubicar se ve en el programa Basic 
en el cual el fichero binario del en¬ 
samblador ha sido pasado a codigo 
maquina en lineas DATA-.CIaro que 
si tiene el fichero en binario, no hay 
que teclear lineas 100-350 ni ia su- 
brutina 2000 (2000-2999). En su lu¬ 
gar, linea 1007 se cambia a: 

1007 LOAD"hojeamen", h+1 

y el binario se carga en memoria mas 
rapidamente. Si tedeas los DATA ; 
usa MODE 2: el formato es de 64 ca- 
racteres por linea para ajustarse a la 
norma de tu revista, y si saltas un da- 
to sera claro a simple vista. Hay un 
checksum al final de cada linea: un 
error se senala con el mensaje «Error 
en xxx» y las lineas de DATA listaran. 
No hace falta contar espacios: las 
identaciones (p. eje. lineas 
2010-2110) se usan para ayudar 
comprender la estrucutra de los bu- 
cles, y no necesitas seguirlas. Lasob 
servaciones (REMs) que siguen al 
apostrofe (') pueden reemplazarse 
con un par de asteriscos (' )■ 

Si no tienes interes ahora mismo en 
usar la reubicacion, teclea el progra¬ 
ma en Basic porque el resultado es 
una herramienta potente en abrir 
programas en binario, en seguir la 
disponibilidad de la memoria, en de- 
purar programas largos en Basic, 
etc. 
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*H Rut inn dn reubicar 

M i c, r oil 0 bby AMSTRAD Soma 

ORG 0000 

:usar opcibn lb con GINA 

GETLOC: EQU #BB21 

; 1 lumada falsa al rirmwar 

REUBIC:CALL GETLOC 

;pone PC-3 on cl slack 

mi c sf* 


DEC SP 


FX (SFM.HL 

: 111 pc>3 or i sj i ns 1 

DEC HI. 


DEC HL 


nr:c m 

;tif t sut (Constance do reu 

INC SP 


INC SP 

; SP restanrado 

PUSH HL 


LD DE.tabla-2 

:labia do icubical osiari 

ADD HL.DE 


POP DC 

; Lie off sol 

REUB1 :1 D F,< HI ) 

;einpezar bucle 

1 NC HL 


LD D. (HL > 


INC HL 

: sac a una directs! bn do la 

LD A,D 


OR E 

; comprobar Sofia 1 para fin 

JR Z .REUB2 

;hecho 

PUSH HL 

:puntero en la tabla 

EX DE.HL 

:HL direccion 

ADD HL.BC 


PUSH HL 

;dlreccl6n+offset 

LD E.(HL) 


INC HL 


LD D.< HL) 


LX DE,HL 

;11L (d i rocr i on-of tsot ) 

ADD HL.BC 

;of tsot afiadido 

EX DE.HL 


POP HL 

;snca d i rocc i on * of f set. 

LD (HL >.E 

;pokear el riuevo valor 

INC HL 


LD < HL),D 


FX)P HL 

; sat:a puntero en la tabla 

JR RITIR1 

:al bucle 

REUB2 :JP keydef 

;.1P l.OGKSX si os programa 

DREW REUB2+1 

;comenzar ya la reubicurit 

Labia :DEFS 7b 

;6 lo que se£i, 7(> on oste 

endtbl:DEFW 0 

;sofial de fin de tabla 

DFFS 2 

;/oua de seguridad 


ASSEMBLE opci6fi-X6 {estilo GFNAj 
SAVE fiotiert) binario en cinta o di-sco 
LOAD este inismo ficfiero a, dlgames. #5000 
INTELLIGENT COPY bajo MONA (opribn I) 

Start: 5000 + TABI.E 
Last: 

To: 5000+tab!a 

SAVE binai 10 bajo MONA run opr ion WRtTF fopetOn w) 
Name: HOJFAMFM por ejemplo 
First: 5000 

Last: 5000+TABl E (no +TABL.F-1 un error on MONA) 
Stai t : 

Usar a Just ancio 1 o a li - himetnory con LOAD a (h-TABLE) 
Tlrar la basura tit) reubicaetun moviendo el puntero 

do meinorla at riba hasta I h-"l ABLE + ent ry ) . 
version: 7.i1.86 


La rutina capta error 5000 es un 
intento de dejar SYMBOL AFTER de 
BAsic en su estado original. Se nota 
quela memoria tira hacia arriba otra 
vez en 3000 despues de la reubica 
cion. 


listing HOJEAMEN.BAS 


El programa que ahora tienes, 
HOJEAMEN.BAS, es disenado a ser 
cargado cuando se enciende la ma- 
quina. Deja dos nuevas teclas de fun 


cion: CTRL/ [.]-numerico te permite 
hojear por la RAM, y CIRL/ENfER 
grande (o CTRL/RETURN estilo 128) 
te devuelve cuando lo quieres tu 
pantalla que estabas usando antes 
(INKs PAPER PEN BORDER MODE). 
Estan asignados los numeros 
158/159, los mas altos posibles, pa 
ra no moiestar a otros programas 
que se puedan usar despues. Las ru- 
tinas estan disponibles coma teclas 
y no como RSX porque son de uso en 
modo comando y no en tiempo de 
ejecucion. 


IniUluto* lot JIR'tl 
IWfeeload iUrbouvi 


V Ut i««Ui d« fuMleii 
ekrltOtTIX 
atrled 


• HjuvIooj 

Mfierla 




C»*XN-ll..k|o«4-.l 




Ahora pulsa CTRL [.J-numerico. Di 
reccion de comienzo: ENTER, y em 
pieza en el 0000 por defecto. Estas 
son las celdas de la memoria. Es tan 
rapida la pantalla, que hay una pau¬ 
se de dos segundos al final de cada 
pagina. Cuando se aburre de ver 
RAM vaefa, pulsa una tecla y se pa- 
rard. Ahora direccion de comienzo: 
&b446 y pulsa una tecla para parar- 
lo ya. Lo que se ve es el buffer de las 
teclas de funcion con RUN", nues- 
tros CALL &XXXX, etc. (En modelos 
mas modernos que el nuestro, pue- 
de ser que la direccion no es exacta- 
mente &B446, pero estara cercana.) 

Cuando quieres, pulsa ESC una 
vez para volver a Basic. jQue boni- 
to! sVerdad? Si tienes impresora, 
puedes sacar lo que ves a papel 
usando nuestro RSX COPY de hace 
unas pocas semanas. (Era tambien 
reubicable.) Ahora pulsa 
CTRL/EN IER-grande y jvoila! 

No hay que quitar estas cosas de 
la maquina. Estan alii para usarse 
con otros programas. Par ejemplo, 
estas tecleando un programa largo 
en Basic y algo no lunciona. Hojea 
la memoria baja hasta que veas el fi 
nal del Basic. Entonces se ve como 
Basic apila los variables al final de si 
mismo durante la ejecucion. Y se ve 
"COUNT. SWAP..." y muy cercana 
"COUNT. SUAP..." jAja! Un peque- 
no error de ortografia inglesa. 

Vas a encontrar la funcion 
CTRL/ENTER-grande rnuy util Mu 
chas veces nos encontramos con una 
pantalla ilegible. Tocamos esta tecla, 
y otra vez tenemos la pantalla del 
momenta en que hicimos la ultima 
llamada a HOJEAMEN. Diviertete. 
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«•! < HOJr-ANfM Mnsliad Sem.iu. 1 1 IFebHb 




2 

; ho joui 



3 

.iepune 

0071- 

3ADC00 

5 

ke\ de f : 

0082 

LL24 

6 


0084 

FE4C 

7 


008b 

CO 

8 


0087 

Ofi‘)F 

9 


0089 

3h I 2 

10 


008B 

CD33BB 

1 1 


0081 

05 

1 2 


0081 

3E07 

13 


0091 

C33 IBB 

14 


0094 

CFCFA4 

15 

entry : 

0097 

3l393836 

16 


00 AC 

0D12PT 

17 

ASKDR1: 

00 AI 

07 

18 

ASKDI R : 

00 HO 

49687075 

19 


OOCO 

64652063 

20 


00D1 

08080808 

21 


00D6 

OC 

22 

DlRMES: 

001)7 

41)696 J72 

23 


oof: A 

GTCFCF 

24 


00 ED 

20707209 

25 


0103 

FF 

26 


0104 

20CPCFCF 

27 

DlRMS2: 

0108 

20756C74 

28 


0 1 IF 

FF 

29 


0120 

D90AFF 

30 

D I RMS3: 

0123 


31 

D1 RFCC: 

0125 

00 

32 

1JSF LAG : 

012b 

UD1C20 

33 

IISDATA : 

0129 

0B0B1C01 

34 

US1NKO: 

01 2D 

202004 

35 

USINK! - 

0130 

021D 

36 

USMOD: 

0132 

OBOBOE 

37 

USBOR: 

0135 

200F 

38 

USPAP: 

0137 

010DFF 

39 

USPFN: 

013A 

0D1C2G 

40 

BRDATA: 

01 3D 

0BOBICO1 

4 l 

hr InkO: 

014 1 

20200402 

42 

brlnkl : 

0140 

ODOBOB2D 

43 

brbor: 

014F 


44 

r e L n 1 c : 

01 'iF 

AF 

45 


0150 

322501 

4 6 

<191 : 

0153 

212601 

47 

qq' 2 : 

0156 

C3F501 

48 

<103: 

0159 


49 

browse: 

0159 

3A250I 

50 


015C 

B7 

51 


015D 

2036 

52 


015F 

CD93BD 

53 


0 162 

323701 

54 

M<14 : 

0165 

CD99BB 

55 


0108 

323501 

56 

qq5 : 

OlbB 

CD11BC 

57 


016E 

323001 

58 

qq6: 

0171 

AF 

59 


0172 

CD35BC 

00 


0175 

EDA32901 

61 

rri : 

0179 

3E01 

62 


01 7B 

322501 

63 

qci?: 

OWE 

CD35BC 

64 


0 181 

FD432D01 

65 

i r2: 

0185 

CD)BBC 

66 


0188 

LD433201 

67 

rr3: 

018C 

219AU1 

68 


0I8F 

CD 19BD 

09 


0192 

CDF501 

70 

<l<l9: 

0195 

21ACG0 

71 

BROWS 1: 

0198 

CDF501 

72 

qqio: 

019B 

CD8 1 BfJ 

73 


019E 

CDFFOl 

74 

HROWS6: 

01 Al 

21AFOO 

75 

qq 11 : 

01A4 

CDF50l 

76 

q<H2: 

0 1 A7 

0604 

77 


01A9 

210000 

78 


01 AC 

222301 

79 

qq 13: 

OlAF 

212301 

80 

qqi4: 

01B2 

CD06BB 

81 

1NPHF.X 

01135 

PE PC 

82 


01D7 

2839 

83 


01 H9 

FIT) D 

84 


01HU 

2805 

85 


01 HD 

CD0802 

86 

q<l 15: 

01CO 

20FO 

87 


0 1C2 

CDFF01 

88 

INPHX1 

0 IC5 

FD5B2301 

89 

ri'4 : 

01C9 

CD84BR 

90 

BROWS2 

01CC 

CD2902 

91 

qql6: 

0 1CF 

0H()7 

92 

01D1 

06f-0 

93 

BROWSA 

011)3 

1 A 

94 

BR0WS3 

01D4 

C5 

95 

0 11)5 

1)5 

96 


inemorlu i'iri num.pad l . i 
i nks. mode. pMpiM . bonier .etc. 

cfrl/tN'M-.R (RETURN) 
It) A. < DI RMFS-6) 

XOK 36 
CP ’’ I ” 

Rl T N7 

LI) B.159 

LD A.J S 

CAI L #bi:i33 

DEC El 

LD A. 7 

JR #BB)3 

DEED 207,207,104 

DFFM ”1986 Hobby Pi esJS S . A . " 

DLI'B 13.L8,#FF 

DUFEi 7 

DfcFM ’’Input diioccion ” 

DEEM "do comitiiizo “ 

DEFB 8,8,8. ft, # IF 
DPMI 12 

PEFM ’’Microhobby Ainstrad ’* 

DEPB 207,207.207 

DEFM ” prlmem direction &" 

DEFD #1 F 

DEFB 32.207,207,207 

DEFM ” ultima esta paglna &" 

DEHU #FP 

DEFD 217,10,#FF 

DELS 2 

DKFB 0 

DEED 13.28 .'32 

DEED 11,11,28,1 

DEFB 32,32,4 

1)11 F H 2, 20 

DFm 1 1 , 1 1 , 14 

DEFB '32,15 

DEFB 1,1'*.*FF 

DEFB 13,28,32 

DEFD 11,11,28,1 

DEFB 32,32,4.2,29 

DEFD 11,11,14,32,15.1,13,7,#FF 

XOR A 

LD (IJSF1 ACi) , A 
LD HL.USD'ATA 
JR PRTTXT 

LD A,<U5FLAG1 
OR A 

JR NZ,BROWS1 

CAIL #HH91 
ID (USPFN).A 
CALL #131)90 
LD <USPAP),A 

CALI #BC 1 1 
LD CUSHOD1.A 
XOR A 
CALL #BC35 
LD < USINKO >,BC 

LD A. 1 

LD < U5FLAG),A 
CALL #BC35 
LD (USINK1).DC 
CAII #DC3B 
LD (USBOR >,BC 
ID HI .BRDATA 
CALL #131)19 
CALL PRTTXT 
LD HL.ASKDRl 
CAI L PRTTX T 
CALL #HB81 
CAIL KFLUSH 
LD HL.ASKDIR 
CALL PRTTXT 
LD B. 4 

ID ML,0 
LD (D1RECO.HL 
LD HL.DIftECC 
CALL FBB06 

CP #rc 

JR 2.UR0WS5 
CP 13 
JR /, INPHX1 
CALL ASC2HI. 

JR NZ.INPHF.X 
CALL KFLUSH 
LI) DE. < Dl RF.CC) 

CALL #BB84 
CALL DI ROUT 
LD C, 7 
lD B.240 

LD A, ( DE) 

PUSH BC 
PUSH DP 


0 1 DO 

CD5DBB 

97 


CALI 

#BB5D 


01D9 

Dl 

98 


POP 

DF 


01 DA 

Cl 

99 


POP 

BC 


01DB 

13 

1 00 


1 NC 

DF 


01 DC 

10F5 

3 01 


DJNZ BROW.S3 


01 DE 

OD 

102 


DEC 

C 


01 DP 

20F0 

103 


JR 

N/,BROWS4 


0181 

CD81BB 

104 


CALL #1)1)81 


01 £4 

3 CCS 

105 


I D 

A . 200 


0 1 EG 

CD6702 

106 

qq 17: 

CALL CDELAY 


0 IE9 

CD1BBU 

107 


CAM 

#BR 1 B 


01 EC 

30DB 

108 


jr 

NC,BR0WS2 


O 1 HE 

F1£1*C 

1 09 


CP 

#FC 


oiro 

20 AC 

1 10 


JR. 

NZ,BR0WS6 


0 1 F2 

21AC00 

I I I 

BROWS5: 

: I D 

III , ASKDR 1 


01F5 


1 12 

PRTT X I*: 




0 IF5 

7E 

1 1 3 


I 1) 

A.<HL> 


0 l FO 

23 

114 


INC 

HL 


0 1 F 7 

PEPP 

1 15 


CP 

#FF 


01F9 

C8 

116 


RET 

/ 


0 1 PA 

CD5ABB 

1 17 


CAI l 

#DB5A 


01I-D 

18F6 

118 


JR 

PRITXT 


0 1 FF 

0600 

1 19 

KFI USH: 

LD 

B, 0 


0201 

CD09DB 

120 

KFL1 : 

CAM 

. #1)1)09 


0204 

DO 

121 


RET 

NC 


0205 

10FA 

122 


DJN7 KFI 1 


0207 

C9 

123 


RFT 



0208 

4F 

124 

A SC-211L ; 

; LD 

C , A 


0209 

FF6 1 

1 25 


CP 

*’ a *’ 


020 B 

3802 

126 


111 

C. ASCII I 1 


0201) 

D620 

127 


SI ■ H 

#20 


020F 

D630 

128 

ASCII L 1 : 

: SUB 

”0" 


021 1 

D8 

129 


rl r 

c 


021 2 

PEO A 

130 


c:i j 

10 


0214 

)8UH 

1 ) 1 


IR 

C. ASCHI 2 


0216 

D607 

132 


SUB 

7 


0218 

ffoa 

133 


C.p 

10 


021 A 

DK 

194 


RL 1 

( 


02113 

FE10 

135 


l P 

) <» 


0211) 

DO 

136 


RfiT 

NC 


021 F 

HOOF 

137 

ASCII l 2* 

Rl 1) 



U220 

23 

1 38 


INC 

HL 


0221 

HD6F 

1 39 


R! n 



0223 

2M 

140 


DEC 

HI 


0224 

79 

14 1 


LD 

A ,C 


0225 

05 

142 


DFC 

n 


0226 

C35ABH 

1 43 


IP 

#111)5 A 


0229 

21D600 

1 44 

01 RUl 1 1 : 

LD 

HL.DlRMES 


022C 

CDF501 

1 4 5 

qq 18 : 

CAI L 

PRT TXT 


022F- 

4 4 

146 


IJ) 

C.D 


0230 

CD4F02 

147 

qq 19: 

CALL 

cm-xp'r 


0233 

4B 

148 


LD 

c. F 


0234 

CD4P02 

149 

M<|20 : 

CAI 1 

CHF.XIT 


0237 

210401 

150 

qq2i: 

LD 

1IL. DI RMS2 


023A 

CDF501 

151 

qq30: 

CAI 1. 

PRTTXT 


02*11) 

218F06 

152 


1.1) 

Ml,240*7 1 


0240 

19 

153 


ADD 

HL , DF 


0241 

4C 

154 


LD 

C.H 


0242 

CDAF02 

155 

qq31 

CAI l 

CHFXP'l 


024 5 

4D 

156 


1 D 

C.L 


0246 

CD4F.02 

157 

q<l32: 

CALL 

Cl 1 EX PI 


024 9 

212001 

1 58 

qq J3 * 

LD 

HI ,PIRNS 1 


024C 

OF 501 

1 59 

qq22: 

JP 

PRTTX 1 


024 r 

79 

160 

CHEXI’T: 

LD 

A ,C 


0250 

HftPO 

161 


AND 

#F0 


0252 

OF 

162 


RRCA 



0253 

OF 

163 


RRCA 



0254 

OF 

164 


RRCA 



0255 

OF 

165 


RRCA 



0256 

CD5C02 

166 

qq23: 

CALL 

NASCl1 


0259 

79 

1 h7 


L D 

A , C 


025A 

KOOK 

168 


AND 

#0F 


025C 

FEUA 

169 

NASCl1: 

CP 

10 


025P 

3802 

170 


IR 

C.NASI 


0260 

COO 7 

171 


ADD 

A, 7 


0262 

C630 

172 

NASI : 

ADD 

A , ’’ 0 ” 


0264 

035ARM 

173 


IP 

#HB6A 


0267 

01 D80‘) 

174 

CDL-I AY : 

L.l) 

HC,2520 


026A 

OD 

175 

CDL AY I : 

DEC 

C 


026B 

20FD 

176 


JR 

N7. CDt.AY 1 


026D 

05 

177 


DEC 

B 


026P 

20 Fa 

178 


JR 

NZ.CDI AYl 


0270 

3D 

179 


DFC 

A 


027 1 

20 F 4 

180 


JR 

N/.CDELAY 


0273 

C9 

181 


RET 



0274 

80005101 

182 

TAM F. 

DREW 

keyfle f . 1 ,qq 1 . 

1 .< 102 * 1 . qql* 1 

027C 

5A016301 

1H3 


df rw 

br owsso ► l, <jq4» 

1 , qq5 ♦ 1 . q<lb* 1 

0284 

77017C01 

184 


DEFW 

rrl* 2,qq? * 1,1 

12*2,rr3*2 

028C 

8D039301 

185 


UFFW 

q<|8‘ 1 ,qq9 * 1 . BROWS 1 * 1 ,<iqlO* l 

0294 

9K01A201 

18b 


DEFW 

BROWSfx I,qq11 

► 1,qq12«1.qq13 

029C 

B001BE01 

187 


DEFW 

qq14'1.qq15»1 

. I NPHX 1 • i. ri 4*: 

02A4 

CD01L701 

188 


Dl- FW 

qql6« 1 , titj 17*1 

.BROWS5*1 

02AA 

2A022D02 

189 


DEFW 

DIROUT * 1 ,qq 18 

* 1 .qq 1 9• l ,qq 20 

021)2 

38024D02 

190 


DEFW 

qq 2 1 ■ 1 ,qq22 * 1 

,qq23 ♦1 

G2BR 

3B024302 

191 


DEFW 

<8130 - 1 , qq') 1 * 1 

.qq32* 1 ,q<|33- 1 

02C0 


192 

/Z7/Z7 : 






193 
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100 
1 10 
1 20 
130 
1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
230 
300 
310 
320 
330 
340 
350 
1000 
1001 
1002 
1003 
1 005 
1006 

1007 

1008 

1009 

1010 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 

2999 

3000 
3040 
3045 
3050 
3060 
3065 
3070 
3090 
3100 
3110 
3120 
3130 
4000 
4010 
4020 

5000 

5001 


DATA CD2lBB3B3BE32B2B2B3333E5112D0019C15K2356237AB32S110846 
DATA E5EB09E55E2356EB09E8E1732372E1 18E7C37F002B0080005 1 0R7B 
DATA 01540157015A01630169016F0177017C0183018A018D019301056D 
DATA 960199019F01A201A501AD01B001DE01C3010701CD01t701F3096D 
DATA 012A022D023102350238024D0257023B02430247024A02000002BF 
DATA 00003ADC00LE24FE4CC0069F3E12CD33BB0SSE07C333BBCFCF0A7B 
DATA A4 3139383620486F62627920507265737320532E412E0D12FF07FB 
DATA 07496E707574206469726569O3696F6E2064O520636F6D696508FD 
DA!A 6E7AGF20262E2E2E2E08080808FF0C4D6963726F686F62627907SE 
DATA 20416D737472616420CFCFCF207072696D65726120646972650A4D 
DATA 6 163696F6E203D2026FF20CFCFCF20756C74696D61206573740A53 
DAT A b 120706167696E61203D2026FFD90AFF0000000DlC200B0B1C06F0 
DATA 01202004021D0B0R0E200F010DFF0D1C200B0B1C01202004020286 
DATA 1D0B0K0L200F010D07FFAF322501212601C3P5013A2501B72005C3 
DATA 36CD93BB323701CD99BB323501CD11BC323001AFCD35BCED430ADE 
DATA 29013K01322501CD35BCED432D01CD3BBCFD433201213A01CD082D 
DATA 19BDCDF50121 AC00CDF 501 CDS 1BBCDF F0121AF00CL1F50106040B9C 
DA T'A 210000222301212301CD06BBFEFC2839FF0D2805CD080220F007B4 
DATA CDFF0 1 ED5B230 1CD84BBCD29020E0706F-01 A05D5CD5DBBD 1C 10C73 
DATA 13101 50D20F0CD81BB3EC8CD6702CD1BBB30DBFEFC20AC21AC0CBB 
DATA 007E23FEFFC8CD5ABB18F60600CD09BBD010FAC94FFE6138020C78 
DATA D620D630D8FE0A3808D607FE0AD8FE 1 0D0I- D6F23F D6F2B79050C3B 
DATA C35ABB21D600CDF5014ACD4F024BCD4F02210401CDF501218F09FC 
DATA 06 1 94CCD4F024DCD4 F02212001C3F501 79F6F00F0F0F0FC.D5C08A3 
DATA 0279F60FFE0A3802C607C630C35ABB01D8090D20FD0520FA3D09B5 
DATA 20F4C901DD 

endit &274:entry=&94‘ longitud de codigo/long, de basura 
hojea &l59 :vupI ta=&14F 
ON ERROR GOTO 4000 

sym=256:GOSUB 5000’ tratamienLo del symbol buffer 

h-HIMEM endit 
MEMORY 111 MEM endit 

direc h:GOSUB 2000' cargador 

'si ya hay el binario, sustituir: 1007 LOAD” ho jeamem"*, h +1 
CALL h+1 

GOTO 3000’ fin 

rutina carga datos con checksum 

FOR 1inca ■ 100 lO 350 STEP 10 
READ post i 7.0$ 

check.sum VAL(+RIGHf$<postizo$,4)) 

FOR punlero 1 TO LEN<postizo$)-5 STEP 2 
dummy VAL(+MID$(postizo$,puntero,2) ) 
check.sum check.sum dummy 
direc direc-* 1 
POKE direc,dummy 
NEXT puntero 

IF check.sum<>0 GOTO 4020 
NEXT linea 

’ sitio para acoinodacion propia 

' etc 

RETURN 

MEMORY HI MEM-*-entry : sym-240 : GOSUB 5000' reponer user-symbols 
a$ "CALI &" : b$ =HEX$< h *- 1 *lic jea , 4) : c$-CHR$( 13) 

KEY 158,C$*a$ + t>$ + C$ 

PR INT”Hoj ear la memoria RAM con”TAB(3)a$ + b$ 
b$=HEX$(h*1 *vud 1ta,4) 

KEY 159,c$+a$+b$+C$ 

PRINT”Vuelta a colores de antes con"TAR(3)a$+b$ 

PR I NT 

PR I NT"CTRL + 1.) del bluque Humorico - HOJEAR 
PR I NT "CTRL + CENTER grande o RETURN J VUEI.TA 

PRINT- 

NEW’ prog HOJEAMEM Microhobby Amstrad Semanal 

IF ERROpermi t . error THEN PRINT"**** Error ****":STOP 
RESUME NEXT 

MODE 2:PR1NT CHR$(7>"Error en" 1 i nea:LIST-999'Dr . RAC badajoz 
permit.error 5:SYMBOL AFTER svm ’ rutina para manejar 

permi t. error 0: RETURN’ el buffer de los ..symbols 
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ME de mAmrmbpj, 


■A 

C 


Co 

mpilador 

C 


Version completa del 
famoso C-Hisoft para CP/M. 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible ' 


^WORDSTAR. 

15.000 

ED 80: Editor Configurable'V ntaS 
GEN 80: Macros, inclusion enN 
disco, ensamblador condicional, 
manipulation bit a bit. MON 80: 
Monitor y debugger, puntos 
de ruptura y presentation 
vde memoria. 


MODULA-2 
Comp Modula -2 


Implementation total del 
lenguaje MODULA-2 para 
CP/M. Compilador en un 
unico paso, listo para ser 
linkado. 


Especial para 2-80. Deja el 
programa tuente en un 
programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
^WORDSTAR. 


15.000 

DtdSw 


TORCH 
Tutor de CP/M 


Permite trabaio direrto 
sobre disco, bien en 
hexadecimal o ASCII, recuperar 
ficheros perdidos o borraaos, 
alterar y/o proteger 
directories, todo Dajo 
AMSDOS y CP/M. 


Disenado especificamente 
para AMSTRAD. Incluye 
THE WAND, creador ae menus 
de prngramas. 


7.900 

ptas- 


15.000 
)tas 


’ Transforme su impresora 
en una imprenta. Permite la 
impresion en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 


19.900 
)tas„ 


Anade a la potencia del 
programa POLYPRIN1 8 
juegos adicionales de impresion 
a los ya existentes. 


7.900 

ptas. 


POLYPLOT 


Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
telefonos, Calendario, 
Dirertorios, etc... 


Permite realizar graficos 
sofisticados en su impresora. 
Graficos de pastel, histogramas 
comparativos, graficos de lineas 
Imagenes de %() PIXELS de 


#11.900 
ptas.. 


Sencillo sistema de 
MAII -MLRGE. Idoneo para 
producir circulares. Incluye 
editor. Permite la realizacion 
de etiquetas autoadhesivas; - ) 


#9.900 
ptas. 


11.900 

Asigna a <ad<i disco un N. xfac 
numero de serie y ademas 
indexa y cataloga los ficheros 
en ese disco. 


densidad. 


#11.900 
ptas- 


MULTI-TEXT 
Modulo de textos 


Modulo de textos, 
preparado para ser 
emplrado con nuestro lapiz 
optico ESP o con las teclas de 
cursor. 


#10.900 
ptas- 


Explore las enormes 
capacidades del procesador 
de textos NEWWORD; guiado 
desde los fundamentos del 
proceso de textos. 


8.900 

ptas. 


Dos cintas audio con 
instrucciones claras para 
aprendizaje y apoyo al manual 
del tratamiento de textos 
LOSOSCRIPT. 


Nueva version mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en graficos. 


6.900 

ptas. 


Curso de iniciacion a los 
teclados, recomendado para 
personas no acostumbradas a 
su uso. 


7.000 

ptas- 


Conozca a fondo las 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de solo dos. 


3.000 

ptasy 


6.200 

ptas- 


.los 4 juntos- 
*23.800 ptas. 


9.900 

ptas y 


IVA 
no 

incluido 


9.900 

>tas. 



DE VENTA EN LOS MEjORES COMERCIOS DE INFORMATICA 

Si Vd. tiene alguna dificultad para obtener tos programas, puede dirigirse a: 

Avda. Isabel II, 16 - 8 P 
Tels. 455544 - 455533 
Telex 36698 
20011 SAN SEBASTIAN 
CONDICIONES ESPEC1 ALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUTOR EXCLUSIVO PARA ESPANA 


Ofites 

Informatics 







































40 s UNCIONES MAS OUE NUESTRO LAP1Z FS CAPAZ DE HACER. 


(IVA no incluido) 


m mm m log ivi commciog 

0£ INFORMTICA 

Si Vd. tiene algunt difteuhad para obtener el lipiz 6ptko. 

puede dirigirse a: 

^ / ,r VyfnpH Avdi. Isabel D, 16 -8 s 

—LLilK^S Tiis - 455544 - 455533 

JL 20011 SAN SEBASTIAN 


CPC 464 CASSETTE 
CPC 464-664 DISCO 
CPC 6128 DISCO 


FUNCIONES 

ESP 

dk’tronics 

OTROS 

DNlCO MENU DE PANTALLA 

SI 

NO 

1 

ARRASTRE OBJETOS PANTALLA 

SI 

NO 


TRASLADO OBJETOS PANTALLA 


NO 


TRASI ADO DE CURSOR 

SI 

NO 


CAJAS ELASTICAS 

SI 

SI 


LINEA ELASTICA 

SI 

SI 


TRIANGULO ELASTICO 


NU 


ELIPSE ELASTICO 

SI 

NO 


DIAMANTE FLASTICO 

SI 

Nu 


POLIGONO ELASTICO 

SI 

NO 

HEXAGONO FLASTICO 

Ni I 

OCTOGONO ELASTICO 

SI 

NO ] 

CUBO ELASTICO 

SI 

NO 


PIRAMIDE ELASTICA 

SI 

NO 

W 

CIRCUNFERENCIAS 

SI 

SI 


OIRCULOS RELLENOS 

SI 

NO 


CAJAS RELLENAS 

SI 

no 

L ft 

"ELiPSES RELLENAS 

SI 

NO 

o 

CUNAS 

SI 

NO 

'S. 

SIMULADOR DE CORTES 

SI 

. NO 


DISENO DE ZOOM 

SI 

SI 

C/3 

. o 

IMAGEN ESPEJO E INVERTIDA 

SI 

NO 

S-> 

FONDO DE REFERENDA 

SI 

NO 

■ o 

REJILLA DE FONDO 

SI 

NO 

■ “ G 

_o 

OPTION DISPLAY X. Y 

SI 

NO 

8 

RELLENADO CON COLOR 

SI 

SI 


LAVADO DE COLOR 

SI 

NO 

a 

VOLCADO PANTALLA RESIDENTE 

SI 

NO 

CX 

G 

DIBIJJO DE BORDES EN 3 D 

SI 

NO 

— G 

_ o 

TFXTO 

SI 

SI 

_U ~ 

9 TAMANOS DF BROCHA 

SI 

NO 


IS TOBERAS MOSTRADC'R“\S 

SI 

NO 


: 4 MEZCLAS BASICAS 

SI 

NO 


rVARIADOR DF MEZCLAS 

SI 

NO 


SOMBREADO DE MEZCLAS XOR 

SI 

NO 


FICHERO ICONOS RESIDENTES 

SI 

NO 


FICHERO RELLENOS RESIDENTES 

SI 

NO 


26 COLORES DE PAPEI 

SI 

NO 


PALETA DE 15 TONOS DE COLOR 

SI 

NO 


POSICIONAMIENTO DF. PUNTO 

SI 

SI 


RAYOS DESDE UN PUNTO FIJO 

SI 

NO 


DIBUJO REFLEJADO (ESPEJO) 

SI 

NO 


FUNCION HOME 

SI 

NO 


CONTROL DESDE TECLADO 

SI 

SI 


CONTROL CON JOYSTICK 

SI 

NO 


DISPONIBLES MODOS 1 Y 2 

SI 

? 



ESTOS so:-' 


ALGUNOS EJEMPLOS 


DE LOS GRAF1COS QUE VD. 


PODIA REALIZAR CON MUESTRO 


LAPIZ OPTICO 


DEBIDOA LA BALTA DEESPA CIO NO P( 1DEMOS LIS1AR LASOTRAS 

















































































FlDICON 

in los ultimas a nos el concepto de programa ha derivado al 
de paquete integrado. Nuestro Amstrad tiene capacidad y 
potencia para soportar uno de estos paauete, pero el preeio 
prohibitive de estos nos l a obligado a nacernos el nuestro. 



FlDICON es muy simple, pero cuan- 
do hacernos RUN «FIDICON» em- 
piezan las sorpresas, nos pregunta: 
«jQUE PROGRAMA DESEA UTILI 
ZAR?» (!) Apareciendo cuatro opcio- 
nes. La cuarta opcion nos resulta fa 
miliar «FIN DE OPERACIONES», cui 
dado con ella, no pide confirmation. 
Pero, y las otras tres. Son los progra 
mas que hemos cargado en nuestro 
Amstrad, cuando elegirnos uno de 
los tres los otros dos actuan como su- 
brutinas de este, asi podemos man- 
tenerlos en memoria sin que uno bo 
rre a otro. Desventaja quienes traba 
jen con cinta tardaran mas tiempo en 
cargar, por lo que es recomendable 
que las rutinas que definen a uno y 
otro programa las graben en otra 
cinta y Hagan un margen con la que 
vayan a utilizar. 

Prosigamos, tras elegir un progra¬ 
ma nos encontraremos con la des¬ 
cription del formato utilizado por el 
programa y algunas observaciones. 
Tras esto responderemos a las si- 
guientes cuestiones con «D» o «C» y 
al numero de registros, de acuerdo 
con el numero de estos que vamos a 
tratar. Si ponemos de menos tendre- 
mos que grabar el fichero y redimen 
sionar el programa. 

Nos encontramos ahora con un 
menu con opciones que nos son fa- 
miliares, CARGAR FICHERO, elegida 
esta opcion se nos preguntara si que- 
remos ver el catalogo del disco. En 
todo momento sabremos que regis- 
tro se esta cargando, una vez finali- 
zada la cargo volveremos al menu 
principal. 

CREAR FICHERO, iremos rellenan- 
do los campos, cuidando de no so- 
brepasar el numero de caracteres 
definidos, pues aparecera recortado 
al listarlo. Introduciremos «*» para 
salir. 


CONSULTAR 0 LISTAR FICHERO, 
nos hard nuevarnente pregunfas, y 
dispondremos de una opcion que do 
ta de gran potencia al programa, 
«BU$QUEDA POR ABREVIATURA?», 
con esta opcion dispondremos de la 
posibilidad de listar todos los Fernan¬ 
dez o Garcia que haya en nuestro 
dietario, o todas las compras del mes 
de marzo, si habiamos seguido la re- 
comendacion del programa de dar 
la fecha de la forma MM (mes)/DD 
(dia)/AA (a/o), pidiendo el listado 
por la clave «MM» o las compras de 
un dia del mes introduciendo 
»MM/DD», practique con esta op¬ 
cion. 

Una vez que hemos respondido to¬ 
das las cuestiones nos aparecera el 
listado por pantalla o impresora y en 
el monitor aparecera una ventana 
con unas opciones: RETORNOMENU, 
NUEVO REGISTRO: nos permite intro 
docir nuevos registros a partir de la 
posicion que le indiquemos, borran- 
do los que haya debajo, si los hay, 
por medio del teclado o realizando 
un merge desde cinta o disco. 
BAJAS, introduciremos la posicion 
del registro a borrar y el programa 
se encargara de compactor el fiche¬ 
ro evitando asi que queden huecos. 

BAJAS, introduciremos la posicion 
del registro a borrar y el programa 
se encargara de compactor el fiche¬ 
ro evitando asi que queden huecos. 
MODIFICAR, nos pedira la posicion 
del registro a modificar, y la del cam- 
po, tras la modification en el progra¬ 
ma contabilidad se actualizara el 
campo soldo si fuera necesario mos 
trando un listado por pantalla o im¬ 
presora. 

PAG. ANT. vuelve atras una pagina, 
para evitar tener que introducir de 
nuevo las opciones que los seleccio- 
naron. 

CONTINUA, sigue adelante con el lis¬ 
tado tanto por pantalla como por im- 
presora. 

De nuevo en el menu principal, la 
siguiente opcion es ORDENAR POR 
CLAVES, una vez elegida la clave, el 
programa nos indicard constante- 
mente de cuantos registros van orde- 
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nados y cuantos faltan por ordenar, 
regresando luego al menu principal. 
SALVAR FICHERO, de la misma forma 
nos indicard los registros salvados. 
REGRESAR MENU DE PROGRAMAS, 
pide confirmacion ya que repondien 
do que si, borraremos el fichero en 
memoria. 


BORRAR FICHERO DE MEMORIA, al 

igual que la anterior debe manejar- 
se con cuidado. 

Los ficheros creados por el progra- 
ma dietario, pueden ser tratados por 
el programa contabilidad, lo cual 
nos facilitara obtener el soldo de un 
period© de trabajo. 


10 MODE 1:1NK 0,0:PAPER 0:CLS:1NK 
l.lOiPITM 1: BORDER O 
20 '******************************* 
****************************** 

30 ’****** programmed by JOSE 

TORO 21-2-86 ******* 

40 ’****** 

******* 

50 ’****** realizada 5obre un cpc-4 
64 para AMSTAB BFMANAl ******* 

60 ******* 

******* 

70 "****** compatible 464,47 

2,664,6178 ******* 

SO * ******************************* 
****************************** 

90 CALL £<BB9C: LOCATE 1,8s PRINT SPAC 
Ft < 40) : LOCATE 1,1 6: PR3 NT SPACES (40) 
100 CALL S.BB9C 

110 IDLATE 17,11:PRINT"FIDICON":LOC 
ATE 10,14:PRINT"PROGRAMMED BY JOSE 
TORO” 

120 FOR U-1 TO 1000:NEXT 
130 CLEAR:MODE 2 :INK 0,27:INK 1,3: 
PEN 1:PAPER 0:BORDER 0:CLS 
140 ’ <<<<<<<<<<<< X<FIDICON=FICHERO 
+DIET ARIO+CONTABILIDAD >>>>>»»»> 
>»>> 

150 '********************* ELECCION 
DE PROGRAMA ********************** 
160 MODE 2:SOUND 1,20,30,5,0 
170 LOCATE 8,20:PRINT"QUE PROGRAMA 
DESEA UTIL17AR:" 

ISO LOCATE 30,2:PRINT”OPCIONES”:LOC 
ATE 30, 3: PRINT” ■»=“" 

190 LOCATE 18,5:PRINT"1. FICHERO DE 
ACCESO Mill TIPLE" 

200 LOCATE 18,8:PRINT"2. DIETARIO” 
210 LOCATE IB,11:PRINT”3. CONTABILI 
DAD" 

220 LOCATE 18,14:PRINT"4. FINALIZAR 
OPFRACIONES" 

230 LOCATE 38,20:CLEAR:prog* "":WHI 
LE pr ogt : progt=INKEYt: WEND: prog- 
VAL (progt) 

240 IF prug~4 THEN CALL bdl9 
250 IF prag<0 OR prog>3 THEN 140 
26b IF prog 1 THEN jota 7 ELSE jota 
*6 

1000 *********** presentacion ***** 
************ 

1010 MODE 2 :INK 0,27:1NK 1,3:PEN 1 
•.PAPER 0: BORDER OsCL.S 
1020 ON prog GOSUB 26000,27000,2800 
0 

1030 CLS:PRINT 

1040 PRINT" DFSEA UTIL I 2AR DISCO 0 
CINTA <d/c> " : casf*" " : WHILE casL-""! 
cast~INKEYt:WEND:cast=UPPERt(c as*) 
1050 PRINT 
1060 n l:s»0 

1070 TF o/no-1 rHFN PRINT" Puede tit 
ilizar lOOO registros como maxi mo ( 
tti borra la 1 ^ Tineas 1*0000 21420 v 
24000- podras utilizar 1400 reg 
jstrnsl." 

1080 PRINT" Es recamendable dar un 
marqen en el numero de registros a 
utilirar (con 30 de mas sera su-f 
\ c i c#nte) . " 

1090 PRINT:INPUT " INTRODUZCA NUMER 
0 DE REGISTROS, (maxi mo 1100) ",m:I 
F m>1100 OR m<6 THEN 1010 
1100 IF m-0 THEN m 1100 
1110 DIM m*tt(m,jota> 

1170 Cl S: MODE 1 :BORDER 0:at*"": 4 =0: 
CATAt "" 

1130 PRI NT:PRINT:PRINT” 

OPCIONES":PRINT " ====== 

*»"SPRINT 

1140 PRINT:PRINT" 1. CARGAR F 

ICHERO" 


1150 PRINT:PRINT" 
CHERO" 


CREAR FI 

1160 PRINT:PRINT” 

R 0 L ISTAR FICHERO" 

o • 

CONSULTA 

1170 PRINT:PRINT" 
POR Cl AYES" 

4. 

ORDENAR 

1180 PRINT:PRINT" 

ICHERO" 

5. 

SALVAR F 

1190 PRINT-.PRINT" 
MENU DE PROGRAMAS" 

6. 

REGRESAR 

1200 PRINT:PRINT" 

ICHERO DEL DISCO" 

7. 

BORRAR F 

1205 PRINT:PRINT" 
ICHFRO DE MEMORIA" 

B. 

BORRAR F 

1210 SOUND 1,500,30, 

,5,0 



1220 LOCATE 10,24:PRINT "intraduzca 
opr ion WHILE a*-"":at - INKEY*:WEN 
D:opc VAL ( at):BORDER 10 
1230 ON opc GOSUB 3000,2000,4000,50 
00,6000,7000,8000,8500 
1740 GOTO 1120 

2000 '********** creacion de ficher 
o **************** 

2070 MODE l:posic*l 
2030 MODE 2:S”0 

7040 ON prog GOSUB 15000,18000,2200 

0 

2050 PEN#3,1:PAPFR#3,0:CL S#3:BORDER 
0 

2060 v«Ci:IF s 1 THEN RETURN 

2070 PRINT:WRITE "introduces '#* pa 

ra ti’f minar" 

2080 FOR i c p05jc TO m 
2090 it STRt <i >: _i = l: matt <i , j ) =it:PR 
INT# ],mat t(i ,j):FOR j-2 TO lota 
2100 IF prog 3 AND j“5 THEN J=6 
2110 INPUT#j,"",matt<i,j) 

2120 matt<i,j) UPPER*(mat $(i,j)) 

2130 IF matt(i.j)="#" THEN 2180 
2140 NEXT j 

2150 IF i/20“INT <i/20> THEN FOR k« 

1 TO jota:CLS#k:NEXT 
7160 inc=i+l 
2170 NEXT i 
2180 RETURN 

7000 '************ riirnar fuhprn * 
***** 

7010 BORDER 0:posit 1:REC 0 

3020 MODF 2: BORR-Os PR I NT#2, : F‘RINT#2 

CARGAR F 

ICHERO" 

3030 PRINT#2:PRINT #2, " 

DESEA VER CATALOGO DEL DISC 
0":WHILE CATAt "":CATAt^INKEYt:WEND 
:CATAt -UPPERt(CATAt) 

304 0 WINDOWttO,1,BO,5,70 
3050 IF cast "D" AND CATAt="S” THEM 
CAT 

3060 LOCATE#7,12,20:PRIMT#2," int 
roduzca para regresar al menu": 

L0CATE#2,8,74 

3070 CAL I f/BBC'7; INPUT #2, " IN 

TRODUZCA NOMBRC DEL FICHERO "jFICHt 

:IF FICHS-"#" THEN RETURN 

3080 IF BORR-1 THEN RETURN 

3090 IF REC^l THEN OPENOUT FICHt EL 

SE OPENIN FICHt 

3100 CI S 

3110 FOR i=posic TO m 
3120 FOR j = l TO jota 

3130 TF RFC 1 THEN PRINT#9,matt(i ,j 
):IF matt <i, j) "#" THEN 3200 
3140 IF REC-0 THEN 1NPUT#9,matt(l , j 
):IF matt(l,j)*"#" THEN 3200 
3150 IF LEN(matt(1,j)) «0 THEN 3200 
3160 matt(i, j)=UPPERt <matt <i,J)) 
3170 NEXT j 

3180 LOCATE#1,25,13:IF REC=1 THEN P 
RINT#1,"SALVANDG REGISTRO”;i ELSE 
PRINT#1,"CARGANDD REGISTRO";i 
3190 NEXT i 

3200 IF REC" - 1 THEN CLOSEOUT ELSE CL 

j 
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OSEIN 

3210 RETURN 

4000 -a************** busca titulo 
**** 

4010 MODE 2:BORDER 0:sal do 0 
4020 CALL ?<BB9C; PRINT "EL LISTADO DE 
L FICHERO SE CONSIBUE PULSANDO <CR> 
A TODAS LAS DPCIONES": CALL &BB9C:P 
RINT 

4030 PRINT "QUIERE LOS DATOS POR LA 
IMPRESGRA " 

4040 ret-INKEY4:IF rp$="" THEN 4040 
ELSE IF ret-“S’* OR re$ = "s" THEN p 
0 ELSE p-1 
4050 ordenar=0 

4060 ON prog GOSUB 16050,20010,2401 
O 

4070 IF ordenar=l THEN RETURN 
4000 PRINTs PRINT:PRINT"INTRODUZCA N 
UMERO DE CAMPO ; : At*”" : WHILE At-'*" 
:A$“INKEY*:WEND:n»VAL <A*):PRINT At: 
PRINT 

4090 PRI NT"BUSQUEDA POR ABREVIATURA 
ayuda*“"":WHILE ayuda* "":ayuda 
$ INKEY*!WEND:Ayuda*-UPPERS(ayuda*) 

:PRINT ayuda* 

4100 PRINT:INPUT "INTRODUZCA CLAVE 
A LISTAR (pulse <CR> a continuacion 
) ",nombre*;nombre*=UPPER*(nombre*) 
4110 ON proa GOSUB 16010.19010.2301 
0 

4l20 l -1:vpnt - 1:GOSUB 9000 

4130 vent-0 

4140 FOR i =1' TD m 

4150 j -1:IF LEN(mat*(i,j))=0 THEN 4 
260 

4160 IF mat*(i ,2)=’ , # M THEN 4200 
4170 IF ayuda*<>*’S" THEN 4200 
4100 FOR 1=1 TO 15 

4190 IF nombret^LEFT*(mat*(l,n),1) 

OR LEFT*(nombre*,1)=mat *(1, n) THEN 
4220 ELSE NEXT:GOTO 4260 
4200 IF nombre*-mat*(i,n) THEN 4210 
FL SE 4260 

4210 mat*<i,l) STR*(i):IP prog 3 TH 
EN saldo VAL(mat*( i, 4))+saldo:mat*( 
i,5) STR*(sal do) 

4220 ON prog GOSUB 17010,21010,2501 
0 

4230 IF progs>1 THEN IF i/10INT(i/ 
10) THEN CLS#3:a*-INKEY*:IF a*-"!" 
THEN RETURN ELSE vent =0:GOSUB 9000: 
GOTO 4250 

4240 IF i/20=INT(i/20) THEN CLS#3:a 
*= INKEY*; IF a*“ ,, l" THEN RETURN ELSE 
vent 0:GOSUB 9000 
4250 IF opc 1 THEM RETURN 
4260 NEXT i :L.“0 
4270 IF ordenar-2 THEN RETURN 
4280 GOSUB 9000 
4290 RETURN 

5000 '********************** ORDENA 
CION POR CLAVES ******************* 
*** 

5010 CLS:BORDER 0:PRINTSPRINT" 
CAMPOS":PRINT" 

5020 ordenar 1:GOSUB 4060 

5030 PRINT:PRINT:PR I NT;A*="":PR I NT 

" SELECCIONE CAMPO A ORDENA 

R": WHILE A* 11 " : A* INKEY*: WEND: CL VA 

L(A*):IF CL-0 OR CL>7 THEN RETURN 

5040 CLS:BORDER O 

5050 FOR i 1 TO m:IF mat*(i,2) 

THEN con=i-1 ELSE NEXT i 
5060 FOR i 1 TO con-1 
5070 FOR j-con TO i+1 STEP -1 
5080 IF mat* <l,CL)■"" OR mat*(j,CL) 
THEN 5100 ELSE LOCATE 1,10: PR IN 
T"VAN ORDENADOS";i;"REGISTROS FALTA 
N";con-i 

5090 IF mat*(i,CL)>mat*(j,CL) THEN 
FOR K 2 TO 6:B*(K)=mat*(i,K):mat*<i 
,K)=mat *(j,K):mat*(j,K>=B*(K>:NEXT 
K 

5100 NEXT 2 
5110 NEXT i 
5120 RETURN 

6000 •'************ sal var -fichero * 

**** 

6010 MODE 2: REOl: BORDER 0 
6020 PRINT#2:PRINT#2, " 

AVISO 1 ! ’" 

6030 WINDOWED,1,80,5, 20 

6040 PRINT#2:PRINT#2," NO REFITA LO 


S NOMBRES DE LOS FICHERQS DARIAN PR 
OBJ t-MAb Al BU0CARI.OS" 

6050 CATA* ""-GOSUB 3030 
6060 RETURN 

7000 ’*************** FIN OPERACION 
FS ******************************** 
***** 

7010 MODE 1:BORDER O:LOCATE 1,13:IN 
PUT "QUIERE RE6RESAR MENU DE PROGRA 
MAS (s/n)";r* 

7020 r* UPPER*(r$):IF r* "S" THEN 1 
O 

7030 RETURN 

8000 '***************** BORRAR FICH 
FRO EN DISCO ******************** 
8010 MODE 2:BORDER 0 
0020 IF ras*< >"D" THEN RETURN 
0030 PRINT" 

ATENCION‘!!" 

8040 PRINT" 

-==- :PRINT 

8050 BORR 1:PR1NT:PRI NT" UTILICE 

ESTA OPCION CON CUIDADO, ASEGURESE 
ANTES DE: SEGUIR": PRINT: PRINT" 

EL FICHERO BORRADO ES IRREC 
LIPFRABLE" 

0060 PRINT" 

8070 GOSUB 3050:IF FICH*="# M THEN R 
ETURN 

8080 !ERA,3FICH*;BORR 0 
8090 RETURN 

8500 '************** borrar -fichero 
dp memoria *********** 

8510 CIS:INPUT "DESEA BORRAR EL FIC 
HERO EXISTENTE EN MEMORIA (s/n)";a* 
8520 IF a*::;" S " OR a*0 M S" THEN RET 
URN FL SE CLFAR:RETURN 
9000 *««««««« VENT ANA DE AYU 
DA >>>>>>>>>>>>>>>> 

9010 PEN#3,C>:PAPER#3,1:CLS#3 
9020 PRINT#3:PR I NT#3,"1.RETORNO MEN 
U 2.NUEVO REGISTRO 3.BAJAS 4.MOD 
IF ICAR 5.PAG.ANT. 6.CONTINUA" 

9030 IF vent 1 THEN RETURN 
9040 LOCATE#3,28,3:PRINT#3,"introdu 
zca opr ion ":A*="":WHILE A*-"":A*=I 
NKEY*:WEND:opc VAL(A*) 

9050 IF opc=I THEN RETURN 

9060 ON opc GOSUB 10,13000,10000,11 

000,12000,14000 

9070 RETURN 

10000 * *******«<<<<«<«BAJAS>>»> 
>>>>>>>>>***************** 

10010 CL S#3:PRINT#3," 

( "O' para reqresar al menu )" 
10020 INPUT#?,"INTRODUZCA POSICION 
DEL REGISTRO A BORRAR";nombre:nombr 
e*=STR*(nombre):IF i=0 THEN RETURN 
ELSE i=»0 

10030 FOR i-1 TO m 

10040 IF nombre* mat*(i,l) THEN 100 
50 ELSE NEXT i:IF i=m THEN RETURN 
10050 FOR k-i + 1 TO m 
10060 FOR j-1 TO jota 
10070 mat$(k-l,j) mat*(k,j) 

10080 NFXT i 
1OOQO NEXT I 
10100 RETURN 

1 1000 ' ******* ,< ' < mod i -f i c ac x on 

vent an ayuda >>•>>* '✓>***** **** ** 
**** 

11010 C:lS# 3:PEN#3, O: INPUT#3, "INTRO 
DUZCA POSICION DEL REGISTRO A MOD IF 
ICAR";i:CLS43 

11020 PFN#3,0: INPUT#’, " INTRODUZCA M 
UMERO DEL CAMPO A MODIFICAR ";C 
11030 CLH#3:PRINT#?," ";mat *(i,C): 

LOCATE#?, 10,3: PRINT#?, " (intr oduzc 
a UP oar a reqresar al menu) " 

1 1040 L.OCA FE #3,1,1: INPUT#3, m* 

11050 IF m*-"#" THEN RETURN FtSE m* 
“UPPER*(m$):mat*(i,C) m* 

11060 CLS#1:i i-1 
11070 RETURN 

12000 9 #**#***<<<<<<<< <pagi na an ter 

i or »>>»***************** 

12005 IF progOl THEN nu-20 ELSE nu 
-40: •* determi na cuantps registros re 
trecede 

12010 i i-nu:IF x<l THEN i 1:CL5#1: 
RETURN ELSE CL.S# 1: RETURN 
13000 ********<<<<<<<<<<nuevos regi 
stros>>>>***************** 

13010 CLS#3:PRINT#3," 


(’O’ para reqresar al menu!" 

13020 INPUT#?, "INTRODUZCA LA POSICJ 
ON DEL NUEVO REGISTRO ",pasic:IF po 
sic-0 THEN RETURN 

13025 PRINT#’: INPUT#?, "DESEA UTILIZ 
AR El TECLADO O DISCO <t/d> \disc* 

:disc* UPPER*(disc*):IF disc**"D* 7 
HEN REC~0:MODE 2:GOSUB 3030:vent 1: 
RETURN 

13030 GOSUB 2030: RETURN:’<««retor 
no menu >>>>>>> 

14000 ****************** continuar j 
********************* 

14010 CLS#1:RETURN 
14020 RETURN 

15000 ’*********** -fichero ******** 
***** 

15010 LOCATE 2, 1 : PR I NT "F’OS" ; LOCATE 
8,1: PRINT"TITULO" : LOCATE 23,1:PRINT 
"T IPO"-.LOCATE 30, 1: PRINT"CINTA :LOC 
ATE 37,l:PRINT"VALORACION":LOCATE5 
0,1:PRINT"REVISTA":LOCATE 65,1:WIN 
T"OBSERVACIONES" 

15020 LOCATE 2, 2: PRINT"-LOCATE I 

8, 2: PRINT"-LOCATE 23,2:PRINT j 

"-"-.LOCATE 30,2: PRINT"-":LDC ’ 

ATE 37, 2: PRINT"-LOCATE 5 

0,2:PRINT"-LOCATE 65 f 2sPRIN 

T"-" 

15030 WINDOWttO, 1,80,23, 25: WINDOW*l, 

1,4,3, 22: WINDOW#2,6,20, 3, 22: WINDOW# 

3. 22,28,3,22:WIND0W#4,30,35,3,22stfI 
ND0W#5.37, 48,3, 22: WI ND0W#6, 50, 57,3. 

22:WIND0W#7,59,80,3,22 
15040 RETURN 
16000 '********** 

16010 MODE 2: x O: s l: WIND0W#1, l.BO, I 
2,21 : WINDOWttO, 1,80, 1,1: WINDOWS, l.B 
0.23,25 

16020 IF p 8 THEN PRINT#8:PRINT#B:P 
RINT#0,"COD TITULO TIRO C 

INTA VALORACION REVISTA 

BSFRVACIONES":RETURN 
16030 CALL &BB9C:LOCATE 2,1:PRINT"P 
OS”:LOCATE 6, 1:PRINT"TITULO M :LOCATE 
21,1: PR I NT" T IPO": LOCATE 28, 1: PRINT 
"CINTA": LOCATE 35, 1: PR INT*’VALORACIO 
N":LOCATE 48,1:PRINT"REVISTA":LOCAT [ 
E 63, 1 : PR I NT "OBSERVACI ONES" : CALL 
B9C 

16040 RETURN 
16045 ’*********** 

16050 PR I NT: PR I NT" 1. 

POSICION":PRINT:PRINT" 

2.T1TIJI 0": PRINT: PRINT" 

3. TIPO":PRINT:PRINT" 

4. No. de CINTA":PRINT:PRINT" 

5. VALORAC I ON" SPRINT: PRI I 
NT" 6.REVISTA" 

16060 PRINT:PRINT" 7. I 

OBSERVACIONES" 

16070 RETURN 
17000 ************ 

17010 PRINT ttp, USING "\ \";mat$<i 

,1);:PRINT#p,USING "\ \ I 

;mat *(i, 2);:PR INTttp, USING "\ 
mat*(i,3);:PRINTttp,USING "\ 

\":mat*(i,4);:PRINT#p, USING"\ 

\";mat*(i,5); 

17020 PRI NTttp, USING "\ \":»a I 

t*(l,6)::PRINTttp, USING “\ 

\";mat*(i,7) 

17030 x«x+l 
17040 RETURN 

18000 •'******#*#*#*********** DIETA 
RIO ************************* 

ISO10 LOCATE 2,1:PRINT"POS":LOCATE 
17,1:PRINT"NOMBRE":LOCATE 34,1: PR IN j 
T"FECHA":LOCATE 42,1:PRINT"IhPORTE 
:LOCATE 53,1:PRINT"No.HISTD":LOCATE 
67, 1 SPRINT"OBSERVACIONES" 

18020 LOCATE 2, 2:PRINT"-":LOCATE 

17,2: PRINT"--—" : LOCATE 34,2:PRIN 

T"-LOCATE 42, 2: PRINT"-" I 

: LOCATE 53, 2: PR I NT"-LOCATE 

6/\ 2: PRINT"-“ 

18030 WINDOWttO, 1,00, 23 ? 25: WINDOW#!, ] 
1,4,3,22:WIND0W#2,6,30,3,22:WINDOW# 
3,32, 40,3,22:WINDOW##,42,51,3, 22: WI 
ND0W45,53,61,3,22:WIND0W«6,63, 80,3, j 
22 

18040 RETURN 
19000 * ********* 

19010 MODE 2:x O: s»l: WINDOW#! p 1 ,B0, 
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2,21:WIND0W#0, 1,80,1,i:WIND0W#3,1,0 
0,23,25 

19020 IF p=8 THEN F‘R I NT #8: PR INT #B:P 
RINT#8, "PQS NOMBRE 

FECHA I MF'ORTE No.HISTORIA 

OBSERVACI ONES" : RETURN 
19030 CALL &BB9C:l OCATE 2,1:F'RINT"P 
OS":LOCATE 17,1:PRINT"NQMBRE":LOCAT 
E 34,1:PRINT"FECHA" : LOCATE 42,1:FRI 
NT’ IMPORTE"! LOCATE 53.1:PRINT"No.HI 
STO" : l Cl CAT E 67,1; PR IN r "OWSERVAC1 OWE 
S*: CAL L &BB9C 
19040 RETURN 
20000 '#******##*# 

20010 PRINT;PRINT" 1. 

jNsiCION":PRINT:PRINT" 

2. NQMBRE " : PR I NT: PR I NT " 

3. FECHA":PRINT:PRINT" 

4. I MF'ORTE "SPRINT; PR I NT " 

5.No.HISTORIA":PRINT 
20020 PRINT" 6.0BSERV 

ACIONES" 

20030 RETURN 
21000 '**#***#* 

21010 PRINT #p, USING "\ \";matHi 
J);sPRINTttp,USING 

\";mat* (i , 2) ; :PRINTttp, US 
ING "\ \";matt( i, 3);:PRINT#p, 

USING"####, ### "j VAL <matt (i ,4) ) ; : PR 
INT#p,USING" ####,### ";VAL(matt <x 

.5) 5 ; 

21020 PRINT#p,USING "\ 

\ " ; matt < i , 6) 

21030 y.=y. + { 

21040 RETURN 

22000 * **************** RECIBDS ** 
******************* 

22010 LOCATE 2,1:PRINT“POS"sLOCATE 
17, 1 SPRINT"CONCERTO":LOCATE 34, 1s PR 
INT"FECHA":LOCATE 42,1sPRINT"IMPORT 
E": LOCATE 67,1sPRINT"PRQCEDENCI A" 

22020 LOCATE 2,2;PR INT"-LOCATE 

17,2; PRINT"---" : LOCATE 34,2: PR 

I NT"-LOCATE 42, 2: PRINT"- 

--sLOCATE 67,2: PRINT"-" 

22030 WINDOW#©,1, 80, 23,25:WINDOW#1, 

1,4,3,22:WINDOW#2,6,30,3,22:WINDOW# 
3,32,40,3,22:WIND0W#4,42,51,3,22:WI 


NDQVJ#5, 53, 61,3, 22: W IND0W#6, 63, 80, 3, 
22 

22040 RETURN 
23000 •'*#***#*** 

23010 MODE ?:x“0:s= , l: WINDOWttl, 1,00, 
2,21;WINDOW#©,1,80.1,1sWINDOWttS,1,8 
0,23,25 

23020 IF p=0 THEN PR INT#B:PRINT #0:P 
RINT #8,"POS CONCERTO 

FECHA IMPORTE SALDO 
PROCEDENCIA":RETURN 

23030 CALL ?<BB9C: LOCATE 2,1:PRINT"P 
OS"; LOCATE 17, 1: F’R I NT” CONCERTO" : LOC 
ATE 34,1:PRINT"FECHA":LOCATE 42,i:P 
PINT"IMPORTE":LOCATE 54.1:PRINT"SAL 
DO"-.LOCATE 67, 1 ; PRINT "PROCEDENCI A" : 
CALL &BB9C 
23040 RETURN 
24000 ”********* 

24010 PRINT;PRINT" 1- 

POSICION"SPRINT;PRINT" 

2.CONCERTO":PRINT:PRINT" 

3. FECHA": PR I NT :F‘RINT" 

4.IMPORTE";PRINT:PRINT" 

5.SALDO"SPRINT 

24020 PRINT" 6.PROCED 

ENCIA" 

J24030 RETURN 
25000 ’********* 

25010 PRINTttp, USING "\ \";matt(i 
,1);:PRIMT#p,USING "\ 

V;mat t <i,2);:PRINT#p, US 
ING "\ V’;matt<i,3)s:PRINTttp, 

USING "####,### ";VAL(mat*<i,4)>;:P 
RINT#p, USING"#####,### ";VAL(mat$ < 
i,5)); 

25020 PRINTttp,USING 
\";matt(i,6) 

25030 RETURN 

26000 '*#11!#**##*#** description del 
fichero multiple **************** 
26010 PRINT SPRINT" 

FICHERO MLJl TIPLE" 

26020 PRINT" 

26030 PRINTSPRINT 

26040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMAT ICAMENTE" 
26050 PRINTS PRINT" Et CAMPO 


TITULO DISPONE DE 14 CARACTERES. " 
26060 PR I NT SPRINT" EL TIFO 

DIBF'ONE DE 6 CARACTERES." 

26070 PRINT SPRINT" EL CAMPO 

CINTA REFLEJA EL NUMERO DE ESTA Y 
CONTIENE 5 CARACTERES." 

26000 PRINT:PRINT" EL CAMPO 

VALORACION 10 CARACTERES." 

26090 PRI NT:PRINT" EL CAMPO 

OBSERVACIONES 20 CARACTERES." 

26100 PRINT"--- 

26110 PRINT : PRINT "NOTA: si desea cam 
bi ar algun campo o modi-fi car su dim 
ension modi-fique las lineas" 

26120 PR I NT-.PRINT" 19000-20000. 

26130 LOCATE 18,24:PRINT"pul se una 
tecla para continuar 11 : CAl L &BB18 
26140 RETURN 

27000 ''*##*****#**# description del 
dietario **************** 

27010 PRINT" 

DIETARIO" 

27020 PRINT" 

27030 PRINT 

27040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMATICAMENTE" 
27050 PRINT:PRINT" EL CAMPO 

NOMBRE DISPONE DE 24 CARACTERES." 
27060 PRINTSPRINT" EL CAMPO 

FECHA DISPONE DE 8 CARACTERES." 
27070 PRINT SPRINT" EL CAMPO 

No.HISTORIA CONTIENE 8 CARACTERES. 

ii 

270(30 PRINT: PRINT" FI CAMPO 

IMPORTE 7 CARACTERES." 

27090 PRI NT:PRINT" EL CAMPO 

OBSERVACIONES 17 CARACTERES." 

77100 PRINT"- 

771 JO PRINT: PRINT"NOTA: 51 desea cam 
bi ar alqun campo o modificar bu dim 
ension modifique las lineas" 

27170 PRINT" 20000-21000." 

27130 PRINT:PRINT"Para mayor efecti 
vidad del programa introduica la fe 
cha de la forma MM/DD/AA dond 

e MM es el mes con dos digitos, DD 
pi dia y AA pi a/o. 

Do osta forma podra 1lstar par m 
psps comp let os." 

77140 CAl L «<8B9C: LOCATE 1B,25:PRINT 
"pulse una tecla para continuar":CA 
LI tBBl (3: CALL S.BB9C 
27150 RETURN 

78000 '*»*,»*»***** deteripclon del 
reel bos ***************** 

780)0 PRINT" 

QNTAP11-1 DAD" 

28070 PRINT" 

20030 PR INI:PR I NT 

28040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMAT ICAMENTE" 
280S0 PRINT:PRINT" EL CAMPO 

CONCFPTO DISPONF DE 24 CARACTERES. 

28060 PR I NT: PR I NT" EL CAMPO 

FFCHA DISPONE DF 8 CARACTERES." 
28070 PRINT : PRINT" EL CAMPO 

IMPORTE CONTIENE 7 CARACTERES." 
78006 PRINT : F'RINT" EL CAMPO 

SALDO 8 CARACTERES." 

28090 PRINT:PRINT" EL CAMPO 

PROCEDENCIA 17 CARACTERES." 

78100 PRINT"- 

28110 PRINT:PRINT*NOTA:si desea ram 
biar alqun campo o moditicar su dim 
ension modi Pique las lineas" 

28170 PRINT" 21000-22000." 

20130 PRINT:PRINT 1 Para mayor efecti 
vidad del programa introduzca la +e 
cho do la forma MM/DD/AA dond 

e MM es el mes con dos digitos, DD 
el dia y AA el a/o. 

De esta forma podra listar por m 
eses completos." 

28140 LOCATE 1 8,25:PR I NT"pulse una 
tecla": CALL 8<BB18 
28150 RFTURN 
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lApasioncmiell 


Son las 21'15 hoias del 16 de Mayo. Un bombaidero Lancaster en vuelo especial, despega de Inglaterra hacia Alemania. Despues de meses 
de preparacion, el escuadron 617 vuela en una operacidn destinada a cambiar el cuiso de la II Guerra MundiaL Su objetivo es destruir las 
mas imporiantes presas alemanas para paralizar los puntos vitales de sus fabncas de armamento. 

Este detailado y aut6ntico simulador te permite ocupar los puestos de: Pilofo, Ingeniero de vuelo r Artillero delantero y trasero, 
Bombardero y Navegante. Volaras a traves del Canal de la Mancha y Europa intentando evitar a los temibles ME-110 alemanes, zeppe- 
iin»s» focos antia^ieos y todos los demas peligros a los que se enfrento el comando Ingles. 
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RAFPAD II 

iQuien dice que el ordenador es una fria maquina 
de cuadricular mentes y axfisiar la creatividad? 
Esto nos preguntamos despues de haber visto 
funcionar esta portentosa tableta grafica. La 
respuesta es, sin duda, que la persona que 
mantiene esta afirmacion, aun no ha dibujado o 
simplemente no ha visto dibujar con ella. 



bus de expansion, y como siempre 
hay que guardar las cldsicas precau- 
ciones de conectarla con el ordena¬ 
dor apagado. 


Vamos a dibujar 


Primero deberemos cargar el pro- 
grama, del que hay version en cinta 
y disco, con RUN «AINTRO». Des¬ 
pues ya podemos empezar a dibujar. 

Pero si queremos hacerlo bien, de- 
bemos leer con detenirmiento, la com¬ 
plete guia del usuario que acompa- 
na la tableta, esta afortunadamen- 
te, salvo en unos pocos puntos, es 
bastante clara y nos ensena el fun 
cionamiento de cada icono. 

Las opciones de las que dispone- 
mos son las siguientes: 

— DIBUJO LIBRE: En suma es co¬ 
mo dibujar con un simple lapicero. 
Podremos seleccionar el grosor de la 
linea. 

— SPRAY; Se puede escoger tan 
to el tipo de spray, como su densidad 
(9 en total). 

— LINEA RELLENA: Nos reliena 
una linea dibujada desde un punto 
dado el grosor escogido. 

— TRIANGULO: Podemos dibu¬ 
jar todo tipo de triangulos siguiendo 
ios siguientes pasos: 

1. Determinar un primer punto 
con el lapiz en la tableta (primer ver¬ 
tice); 

2. Desde este punto, escoger la 

longitud adecuada del primer lado 
(el ultimo punto de este lado forma - 
ra el segundo vertice); 
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3. Colocar el ultimo punto donde 
se quiera (tercer vertice). 

— CIRCULO: Solo tenemos que 
elegir con un punto el centre del cir 
culo y a partir de este, moviendo el 
lapiz sobre la tableta determinar la 
longitud del radio. El circulo saldra 
dibujado a continuacion. 

— ELIPSE: Determinamos el cen¬ 
tra de la elipse y moviendo el lapiz 
en la tableta agrandamos o empe- 
quenecemos la misma, posteriormen 
te saldra dibujada. 

- DIBUJO PUNTEADO: Esta op 
cion se puede escoger despues de la 
del circulo y este se nos dibujara pun- 
teado. 

— CUADRADO: Hay que colocar 
el cursor para elegir el primer punto 
y mover el lapiz sobre la tableta pa¬ 
ra definir tamaho y posicion. 

— RECTANGULO: Se siguen Ios 
mismos pasos que en la opcion de 
CUADRADO. 

— POLIGONOS: Podemos elegir 
de 3 a 15 lados. Tenemos que mar- 
car un punto en la tableta y apartir 
de este elegir el radio del poligono. 
Despues de esto podemos seleccio 
nar el color del mismo. 

— GOMA: jNos hemos equivo- 
cado? Pues no importa, para eso te¬ 
nemos borrador, y de este podremos 
elegir el color de la tinta a borrar, 
borrando solo esta. Podremos elegir 
tambien el tamario de la goma. 

Despues, como si de un tipico bo 
rrador se tratara, moveremos en la 
tableta el lapiz para borrar la super 
fide deseada. 




- IMPRESOR DE ICONOS: Tene¬ 
mos con esta opcion la posibilidad de 
acceder a un archivo de almacena- 
je de 32 iconos, este archivo esta 
compuesto de dos paginas de 16 ico¬ 
nos, y para pasar de una pagina a 
otra deberemos situar el cursor so¬ 
bre el ultimo, realzado en rojo, que 
sirve para este fin. 

Una vez elegido el icono debemos 
poner el lapiz sobre el pulsor «E», 
posteriormente lo situaremos en la 
zona de la tableta que deseemos, 
pulsaremos «E», de nuevo y el icono 
quedara en la zona de pantalla de- 
finida con la tableta. Podemos usar 
nuestros propios iconos si previamen- 
te Ios hemos creado con el GENERA- 
DOR DE ICONO, una vez hecho es¬ 
to Ios podemos salvar con la opcion 
GRABAR Y CARGAR, luego, con la 
misma opcion tambien, podemos 
cargarlos en el impresor y utilizarlos. 

- VENTANA DE GRAFICOS: 
Nos permite difinir la porcion de 
pantalla en la que queramos dibujar. 

Debemos fijar un punto en el ex- 




















































dad mas vistosa que es la proyeccion 
del texto, pudiendo cambiar el color 
de la proyeccion referente al color 
del texto. 

— LLENADO: Podemos rellenar 
tanto la pantalla completa, como 
cualquier superficie que hallamos de- 
limitado previamente. 

Si queremos que sea de un solo co 
lor debemos seleccionar el mismo co¬ 
lor de primer piano y el mismo color 
de fondo. Una vez hecho esto lleva- 
remos el cursor dentro de la superfi 
cie a rellenar y pulsaremos «E», el re- 
lleno se hard de acuerdo con la al- 
tura en la que hallamos situado el 
cursor, esto es, que si se pone a la 
mitad, por ejemplo, soio llenara la 
mitad de la superficie. 

Pero tambien podemos utilizar las 
32 muestras que tiene almacenados 
el programa, muestras en las que 
tambien deberemos escoger los co 
lores de fondo y de primer piano. 


tremo inferior de la pantalla, y a par 
fir de este punto mover el lapiz ha 
cia la derecha y hacia arriba para 
conseguir el tamaho deseado. Para 
apagar esta funcion hay que volver 
al menu y seleccionar la misma, pul- 
sando «E». 

- BORRADOR DE PANTALLA: 
Esta opcion permite limpiar totalmen- 
te la pantalla. Hay que seleccionar 
el icono y despues confirmar con las 
opciones «YES» o «NO» el borrado 
de la pantalla. 

- CURSOR COMPLETO: Con el 
cursor completo tenemos ia posibili- 
dad de utilizar un centrador de pan- 
tolla, para tomar referencias, etc. 

- LINEAS HORIZONTALES Y 
VERTICALES: Debemos seleccionar 
el grosor de la linea, fijar un punto 
pulsando «!», y dibujar hasta donde 
queramos, volver a pulsar «E» y ten- 
dremos la primera linea desde Ia cual 
ya podremos dibujar todas las hori- 
zontales y verticales que queramos 
pulsando «E» cada vez que se quie- 
ra marcar. 


— TEXTO: En esta opcion pode¬ 
mos usar letras normales mayusculas 
y minusculas, italicas (inclinadas) ha 
cia adelante y atrds, tambien en ma 
yusculas, letra negrilla y la posibili 
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— EJE: Esta opcion esta desfina- 
da al giro de la forma creada y po¬ 
demos girarla 90, 180 y 270 grades. 
Despues la archivaremos poniendo 
el cursor dentro y pulsando «E». 

Si deseamos cambiar la muestra, 
el color, o ambos a la vez, como si 
queremos hacer un nuevo giro, esto 
lo lograremos parando el archive 
con ESCAPE. 

- GRAFICOS EN COLOR 
(GCOL): 3e debe elegir 1, 2 6 3 y uti 
lizar cualquier funcion de dibujo pa 
ra variar los efectos de la muestra. 

— REJILLA (GRID): Al elegir esta 
opcion se nos pedird en pantalla que 
determinemos el tamano de la reji 
lla, mediante la separacion, por pi¬ 
xel, de sus li'neas. 

— CURSOR OFF: Hace desapare- 
cer el cursor de la pantalla. 

- AREA DE LA LABLETA (PAD 
AREA): Podremos delimitar el area 
a ufilizar de la pantalla. 

- GRABAR Y CARGAR: Con es 
ta opcion podemos salvar y cargar 
nuestras creaciones. 

- GENERADOR DE ICONOS: 
Para la version en cinta del progra 
ma, deberemos reinicializar el orde- 
nador (CTRL + SHIFF + ESC) y car¬ 
gar la segunda cara de la cinta. 




En la version de disco se apuntara 
ai icono del menu de la tableta, se 
nos pedira conformidad para car- 
garlo, (S/N), y si la damos cargare 
mos el generador, saliendo del pro- 
grama principal. 

Si bien el acceso al generador des- 
de el programa principal es rapido 
y simple, el acceso a este desde el ge¬ 
nerador es laborioso, exigiendo la 


grabacion de nuestro diseno, reini 
cializacion del ordenador y posterior 
cargo, otra vez, del programa prin¬ 
cipal. 

Pero volviendo al funcionamiento 
del generador, podemos usar los 32 
caracteres residentes o disenar los 
nuestros mediante el siguiente siste- 
ma: 

Colocaremos el cursor en la rejilla 
de diseno y moveremos el lapiz so- 
bre la tableta para mover el cursor, 
cuando queramos imprimir o borrar 
pulsaremos «E» (teniendo en cuenta 
que el rojo imprime y que el bianco 
borra). 

Una vez disenado el caracter, co¬ 
locaremos el cursor en la rejilla mos- 
tradora de iconos y pulsaremos «E». 

Para almacenar, arrastraremos el 
caracter al archive de almacenaje y 
pulsaremos «E». De la parrilla de di¬ 
seno, siempre con el caracter crea- 
do, pasaremos a la rejilla de impre- 
sion para hacer caracteres mayores. 
Elios tienen que ser almacenados co¬ 
mo caracteres individuales en el ar- 
chivo de almacenaje. 

El ganador de iconos tiene las si- 
guientes opciones: 

— Puede invertir el caracter en la 
rejilla de diseno. 
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— Dor una imagen espejo del ca 
racter referente al eje X o al eje Y. 

— Girar a 90, 180 y 270 grades 
el caracter o icono generado. 

— Limpiar, segun queramos, la 
rejilla de impresion, o la rejilla dise- 
fiadora. 

— Grabar o cargar los caracteres 
generados. 

— Rutina de irnpresora si quere- 
mos imprimir la imagen en panfalla. 
La rutina es para las EPSON MX o 
FX. 

Una vez explicadas las amph'simas 
posibilidades de GRAFPAD II, que- 
da por decir que todas sus opciones 
se escogen pulsando la «E» que esta 
en la tableta y que es equivalente a 
ENTER, para abandonarlas hay que 
poner el lapiz sobre la casilla de 
«0FF» y pulsar «E», Pero segun da 
tos facilitados por el distribuidor, el 
proximo modelo de GRAFPAD II ird 
dotado de un interruptor en el lapiz, 
desapareciendo la casilla «E» y sim- 
plificando su utilizacion con una so¬ 
la mono. 


IY c6mo dibuia 
GRAFPAD II? 


Bien, francamente bien, y pasare- 
mos muy buenos ratos dando rienda 
suelta a nuestra imaginacion hacien- 
do todo tipo de dibujos e «inventos» 
graficos llenos de color y vivacidad. 

Pero como era logico no nos con 
formamos con nuestra modesta opi 
nion de aficionados al dibujo, y pe- 
dimos a un profesional, Manuel Bar- 
co, nuestro portadista, su parecer so¬ 


bre la tableta grafica y sus conclusio- 
nes han sido estas: 

El GRAFPAD II ofrece muchos as- 
pectos positivos principalmente a di- 
seriadores graficos para la ejecucion 
de bocetos e ideas. 

En lo referente a las artes finales 
no es comparable a la ilustracion o 
diseno sobre papel, aunque tal vez 
lo que no lo hace comparable sea el 
tarnaho de la reticula de la pantalla, 
que al ser muy grande hace que sean 
bastas e imprecisas las lineas y las 
medias tintas. 

Con el color se podrian haber ofre- 
cido mayor cantidad de matizaciones 
si las opciones de la gama de colo¬ 
res pudieran corresponded con los 
tres colores primariso opticos (Ma¬ 
genta, Cian, Amarillo). 

Una de las posibilidades que mas 
sobresalen es el poder cambiar de 
color sobre el trabajo ya realizado. 



De esta manera se puede ofrecer, so¬ 
bre una misma idea, muchas varia- 
ciones de color. 

Asimismo y en relacion con las me¬ 
dias tintas, es tambien destacable la 
opcion de «llenado» y su variedad 
de textura. Aislando las formas pue¬ 



de variarse el color del punto de la 
trama y ofrecer distintas tonalidades 
dentro de una misma gama croma 
tica. Aqui es necesario senalar la im¬ 
precision de la opcion «Spray»en es- 
te menester, aunque en otros sea 
practico, como por ejemplo, para 
usarlo en el momento en que el limi- 
te entre dos textures sea muy violen- 
ta, y en ese caso una pasada de 
spray ayuda a romper el limite cor 
iante. 

Como de muy practica se puede 
definir la opcion «Lmea rel!ena», no 
solo para hacer lineas de gran lon- 
gitud o de construir lineas geometri- 
cas, sino que es util tambien para de¬ 
limiter letras o formas muy precisas, 
en las que el limite tiene que ser niti- 
do y no necesariamente recto, ya 
que a trazos cortitos podemos con- 
seguir con mayor seguridad que con 
«Dibujo libre» un trazado satisfacto¬ 
ry. 

Y en el area del dibujo tecnico es 
de agradecer la reticula de la que 
podremos disponer cada 2, 4, 8, 16 
y 32 pixel segun optemos. Con esta 
reticula se pueden situar centros de 
circunferencias, puntos de fuga, me- 
diciones, etc. Esta reticula se puede 
hacer desaparecer sin que transcien- 
da al trabajo. 

Rues despues de haber podido 
contar con esta acreditada opcion, 
poco mas tenemos que decir de esta 
fabulosa herramienta grafica, que 
hard nuestras delicias, si aprendemos 
a manejarla con destreza. 


GRAFPAD II 
FlCHA TECNICA 


Fabricante: Micro Draw 

Distribuye: Ofites Informatica. 

Contenido del Kit: Tableta grafica, 
Software en cinta o disco segun 
version. 

Sistema operatives: Amsdos. 

Precio: 23.900 cassette, 25.900 disco. 
(IVA no induido). 
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Ofites Informatica 

Presents: la tablets grafica 

GRAFPADII- 

LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 
PARA AMSTRAD, COMMODORE Y BBC 


La primera tableta grafica, de bajo costo, en ofrecer ia duration y prestaciones requeridas por las 
aplicaciones de negocios, industria, hogar y education. Es pequena, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un product© unlco que pone la potencia de 
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la tecnologia moderna bajo el control del usuano. 


ESPECIFICACIONES 

RESOLUCION: 

1.280 x 1.024 pixels. 

PRECISION: 

1 pixel. 

TASA DE SAI IDA: 

2.030 pares de coordenadas por 
segundo. 

INTERFACE: 

paralelo. 

ORIGEN: 

borde superior izquierdo o 
seleccionable. 

DIMENSIONES: 

350 x 260 x 12 mm. 

DISPONIBLE AMSTRAD: 
CASSETTE .... 23.900 ptas 
DISCO . 25.900 ptas 

(IV A NO INCLUIDO) 


DISENO DE ARQUITFCTUKA 
( A SOFTWARE DDX 


DIBIJJO A MANO A! TAD \ 
SOFTWARE DE ICOM)S 


FACIL DE USAR. 

TRAZADO PCB 
C.A.D. 

REA DE DISENO DIN A4. 
.OLOR EN ALTA 
RESOLUCION. 

USO EN HOGAR Y 
NEGOCIOS. 

/ARIEDAD DE PROGRAM AS 
DISPONIBLES. 

•NBUJO A MANO ALZADA. 
IAGRAMAS DE CIRCUITOS 


DE VENTA EN LOS MFJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtencr la tableta grafica, puede 
dirigirse a: 


Avda. Isabel II,* 16 -8 s1 


Tels. 455544 - 45551V 


Telex 36698 


20011 SAN SEBASTIAN 


recogtda de 


i6n de 


Ofites 

informatica 
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DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 


Ofites 


Avda. Isabel II, 16 - 8° 
Tels. 455544 - 455533 

informatica 20011 SAhfsEBASTIAN 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 

EDITOR Y DISTRIBUTOR EXCLUSIVQ PARA ESPANA Y PORTUGAL 


















Dr. Gary Kildall en el 1973. La primera ver¬ 
sion 5e lanzo para el Sistema experimental Kil¬ 
dall, que incluia la primera unidad de disco 
de 8" de la casa Shugar Asociates. 

Durante varies anos fue creciendo el mer- 
cado de ordenadores, y los poseedores de es- 
fos no estaban preparados ni seguros de lo 
que tenfan entre las manos. Por entonces las 
casas desarrollaban, bien paralelamente o 
posteriormente en sus propios sistemas. Esto 
daba lugar a retrasos en los proyectos y el cos¬ 
ts de los mismos. 

Las pequenas empresas decidieron adoptar 
el sistema de Kildall y abaratar el cosfe, olvi- 
dandose de la investigacion y desarrolio de los 
sistemas. Esia es una de las causas principa¬ 
ls del empujon que se le dio a! CP/M, el cual 
ilego a ser uno de los casi mas utilizados del 
mercado actual. 

Pronto los usuarios empezaron a desarro- 
ar aolicaciones para el CP/M, potenciando- 
io a nivel de intercambios de informacion de 
unos ordenadores a otros. La casi compatibi- 
lidad entre los equipos que tuvieran un 8080 
o Z80, era lo que permitia a estos usuarios y 
no usuarios el intento de nuevos programas 
para mayor utilizacion de este. Al lanzar ra- 
pidamente sus productos, las companies no 
podian entregar una arnplia informacion de 
ellos. 

Con lo cual los comercios de ordenadores 
no podian prestar suficiente servicio fecnico al 
usuario. 

Con la incorporacion de las unidades de dis¬ 
co, los tecnicos se lanzaron a un gran desa¬ 
rrolio de Software, no solo programas a me- 
aida sino programas de utilidades. Entre es¬ 
tos programas de utilidades podemos desfa- 
cor las primeras versiones del EBASIC y CBA- 
SIC. 

Mas adelante se le incorporaron otras he- 
rramientas, lenguajes de programacion, que 
le dio gran impulse y popularidad. 

En 1981 con la implantacion del sistema en 
marcas como IBM, Hewlett-Packard y Xerox, 
hicieron que las ventas del sistema se duplica- 
ran. 

Hoy en dia, disponemos de versiones mas 
ovanzadas de las que realizo Kildall por pri¬ 
mera vez. Las versiones se fueron ampliando 
ymejorando sustancialmente. Se paso de la 
version 1.4 a la 2.0 y despues a la 2.2 (la cual 
se incluye en la compra de nuestro ordena- 
dor). Aciualmente se esta trabajando sabre la 
3.0 a PLUS. Esta ultima, trabaja con 128K, de- 
jando mayor capaciaad para el usuario. El 
CP/M plus se coloca en el segundo Danco de 

I memoria, dejando libre el primero para tra- 
bajo. 

■I 


I Estructura interna 
del CP/M 


El CP/M como hemos dicho es un sistema 
operativo; este tiene una estructura que consta 


de bloques de programas, comandos, etc. En 
esta estructura cabs destacar tres partes: CCP, 
BOOS y BIOS.Tal vez nos sean familiares es¬ 
tos nombres pero posiblemente desconozca- 
mos que son y pora que sirven. 

El CCP (Console Command Processor: pro- 
cesador de ordenes de console), es la prime¬ 
ra parte que se corga en memoria despues de 
la pagina base y la TPA (la pagina base y la 
TPA, es la zona de transicion de programas). 
Este es el encargadc de interpreter las orde¬ 
nes aue se introducen por el tecaldo. El CCP 
reconoce solamenfe unas cuantas ordenes y 
unos caracteres de control que mas tarde ex- 
plicaremos. 

El BDOS (Basic Disk Operating System: Sis¬ 
tema Operativo de Disco Bdsico), se coloca a 
continuation del CCP. Toda la aciividad del 
disco y de la console pasa a traves de esta par¬ 
te. El BDOS no es accesible mediante ordenes 
directas, sino que se necesita de un progra 
ma transiforio o del propio CCP. que nos car¬ 
go un registro de memoria (el registro C), 
con la orden deseada, y posteriormente se eje- 
cuta una instruction de CALL a la position 
&H0005. 

El BIOS (Basic Input/Output System Basico 
de Entrada/Salida), es la ultima parte de la que 
consta el CP/M. El BIOS es particular de cada 
casa. Cada una, lo disenc de acuerdo a sus 
necesidades, bien por arquitectura del equi 
po o necesidades de este para posteriores in- 
terconexiones. Antes de intentar conectar otro 
sistema a nuestra maquina, necesitamos adap¬ 
tor el BIOS a este nuevo. En el BIOS, encon- 
tramos todos los parametros del controlador 
de disco, entre otros. Muy utiles, si queremos 
consxionar una unidad de disco de 5"l/4, o 
bien efectuar una transmision y reception de 
datos mediante un interface RS-232-C. 


Codigos de control 
de Consola del 
CP/M 2,2 (464 y 6128/ 


— Confrol-C: Arranque en calien- 
te 

Es la insfruccion de arranque en caliente. Se 
limita a copiar de nuevo en su interior el CCP. 
con lo que se muestra como si hubieramos car- 
gado el sistema de nuevo. 

— Control-E: Retorno del cursor. 

Nos rerorna el cursor al final de la linea. Este 
final hay que decir que no es un final logico 
sino mas bien fisico. 

— Control-G: BEL. 

Como su nombre indica es el caracter en- 
cargado de praducir el pitido «Bel». Es el va¬ 
lor de la tabla ASCII numero 7, que es el en- 
cargado del timbre. 


— Control-H: Delete. 

Esta orden de consola, esta basada en el 
movimiento del cursor un caracter hacia la iz- 
quierda, permitiendo escribir desde alii. Al 
efectuarnos el movimiento nos escribe un ca¬ 
racter en bianco, con lo que practicamente es 
un delete hada la izquierda del cursor. 

— Control-1: Tabulador. 

Funciona exactamente igual que la teda 
TAB. Nos manda el cursor al siguiente punto 
de tabulation o bien nos lo mueve unos ca¬ 
racteres mas adelante a traves de la linea de 
texfo, segun este prefijada. 

— Control J: Salto de linea. 

Nos realiza un salto de linea, pasandonos 
a la anterior para seguir insertando otra linea. 
Practicamente es un retroceso de carro, al 
igual que en una maquina de escribir. 

- Control-M: RETURN. 

Este comando se comporta igual que si pul 
saramos el RETURN o el ENTER. Tiene la mis- 
ma funcion que los anteriormente menciona- 
dos. 

— Control—P: Switch de impreso- 
ra. 

Este comando es uno de los mas interesan- 
tes que tenemos. Es el Switch de la impreso- 
ra. Cuando lo pulsamos por primera vez se 
queda conectado, reflejandose toda la infor¬ 
macion de la pantalla en la impresora. Cuan 
do se vuelve a pulsar esta se desactiva. Este 
comando lo trataremos mas adelante con ma¬ 
yor amplifud, al hablar del mismo en el CP/M 
Plus. 

— Control-R: Repetir linea. 

Si estamos escribiendo una linea de progra- 
ma y hemos errado varias veces, la pantalla 
puede estar no muy dara, con lo cual se utili- 
za este comando, repitiendonos la linea tai y 
como se encuentra en el interior de la memo¬ 
ria. 

— Control-S: Bloquear la panta¬ 
lla. 

En la ejecucion de un programa, al querer 
observar algun detalle del mismo, como el fun- 
cionamiento o calculo de este, lo utilizamos pa¬ 
ra detener momentaneamente la ejecucion de 
este. Para reanudarlo basta con pulsar cual 
quier tecla. 

— Control—U: Delete total de li¬ 
nea. 

Este comando nos borra la linea enfera en 
la cual se encuetre el cursor en ese momenta. 
iiene una action de LINE FEED totalmente 
destructive. 
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— Control-F: Cursor derecha. 


— Control-X: Delete total hacia la 
Izquierda. 

Un codigo muy parecido al Control-U, nos 
borra toda la linea. Con la diferencia que es- 
te codigo solo no borra hacia la izquierda, pe- 
ro apenas podemos diferenciarlo con respec- 
to al anterior. 


C6digos cfe Control 
de Consola del CP/M 
Plus (6128 y 8256). 


— Control-A: Cursor izquierda. 

Nos mueve el cursor un caracfer a la izquier¬ 
da. Podemos insertar cuolquier caracfer en 
dona’e situemos el cursor. Queda limitado a 
una misma linea, o sea que cuando lo tene- 
rrios al comienzo de linea no podemos pasar 
a la linea superior. 

En el PCW 8256, mover el cursor hacia la 
izquierda lo efectuamos mediante la tecla de 
direccion de izquierda. 

— Control-8: Cursor a los extre- 
mos. 

Al pulsarlo por primera vez, y no estando 
en el principio, nos manda el cursor al princi- 
pio de la linea. Si se pulsa por segunda vez 
nos remite el mismo al final de esfa. Al igual 
que la anterior, este comando se limita a una 
sola linea no pudiendo ir a ofra inferior o su¬ 
perior. 

Esta orden vana en el ordenador 8256. po¬ 
demos diferenciar dos pasos de cursor. 

Mediante la funcion LINEA (se obtiene pul- 
sando a la vez MAYS + FDL), lo moveremos al 
principio de linea. Para ir al final de linea fen- 
dremos que pulsar la misma tecla pero sin 
MAYS (solo el FDl). 

— Control-C: Arranque en calien- 
te. 

Al introducir esta orden el CCP iniciara una 
operacion de arranque en caliente. Esta ope- 
racion reinicializa el CP/M completamente, in- 
cluyendo los valores del confrolador de Dis¬ 
co. 

El efecto que produce en el interior es una 
copia del CCP en la memoria, relee el direc- 
torio de la unidad por defecto y reconstruye 
el mapa de situacion que contiene el BIOS. 

Cuando lo iritroducimos en medio de una li¬ 
nea, al llegar a el, el ordenador aborta lo an¬ 
terior, reinicializandose el CP/M. 

— Control-E: Retorno del cursor. 

Cuando damos la orden C, el CP/M envia 
una orden de CARRIAGE RETURN, LINE FEED 
a la consola, pero no comienza a ejecutar la 
linea de orden que se ha escrito hasta el mo¬ 
menta, La orden es siiuarse al final de la linea 
fisica y no logica. 


Nos manda el cursor hacia la derecha un 
caracfer. Al igual que A, esta restringida a una 
sola linea, no podemos seguir avanzando ha¬ 
cia lo derecha, si tuvieramos otra linea. Este 
movimiento de cursor no es desfrudivo, no bo¬ 
rra el caracfer. Esta orden la tenemos en el 
cursor de la izquierda para el PCW 8256. 

— Control-G: CLR. 

Funciona como la tecla de funcion CLR. Nos 
borra el caracfer en el cual esta posicionado 
el cursor. Nos borra el caracfer y nos corre 
la linea un caracfer hacia la izquierda. En el 
PCW lo obtenemos con la tecla de Delete ha 
cia la derecha. 

— Control H: Delete. 

Es el caracfer de conrrol del ASCII encarga- 
do del retroceso. Cuando pulsamos el IT, el 
CCP nos mueve el cursor una posicion hacia 
atras destructivamente. Se utilize para corre- 
gir los errores de mecanografia al introducir 
una instruction. El ultimo caracfer que tenga- 
mos en la pantalla desaparecera. El CCP rea 
liza una secuencia de caracferes ae retroce¬ 
so, espado, retroceso ae consola. 

Esta orden la tenemos un poco mas c-gil en 
el PCW, al igual que el CLR el Delete lo en- 
contramos en Borrar hacia la izquierda. 

— Control-1: Tabulation 

Nos manda el cursor hasta el proximo pun 
to de tabulation. Es una forma rapida de mo- 
vernos a traves de lo linea de texto. Podemos 
ir hacia delanie den*ro de una misma linea, 
teniendo en cuenfa que podemos insertar ca- 
racteres en cualquier posicion en que quede 
situado el cursor. 

— Control-J: Salto de linea. 

Nos da el mismo efecto que si utilizaramos 
el codigo ASCII de LINE FEED. El CCP nos eje- 
cuta el salto de linea en la consola. Nos mue¬ 
ve el cursor una posicion hacia abajo, y nos 
lo coloca al principio de linea. 

Para el PCW 8256 obtenemos el mismo re- 
sultado pulsando ALT + Cursor abajo. Nos Ne¬ 
va el cursor a la siguiente linea sin ejecutar 
nosla. 

— Control-K: CLR total hacia la de¬ 
recha. 

Nos elimme los caracteres desde donde se 
encuentre el cursor hasta el final de linea. Es¬ 
ta orden se utiliza cuando estemos modificari- 
do lineas editadas para su mejorcorrecion. Es¬ 
ta orden tambien la encontramos en el 8256 
pulsando al mismo tiempo ALT y la tecla de 
Borrar hacia la derecha. 

- Control-M: RETURN. 

En nuesfro ordenador disponemos de dos te- 
clas para la introduction de ordenes por te- 
clado al ordenador, son el RETURN y el EN¬ 
TER (o INTRO en Espanoj. Pues bien, dispo¬ 


nemos de otra forma de meter ordenes a tra¬ 
ves del teclado no tan comoda pero reaiiza 
la misma funcion, M nos ejecuta un CARRIE- 
RETURN. 

— Control-P: Switch de impresora. 

Esta orden funciona como un interruptor de 
la «luz». Si lo pulsamos se activa y si lo vol- 
vemos a pulsar se desactiva. Cuando esta co- 
nectado, todos los caracteres enviados a la 
consola se dirigen tambien al mecanismo de 
listado del CP/M. 

Si nos hemos planteado alguna vez como 
poder realizar un listado de un CAT o un DIR 
de un disco, con este comando lo hemos re- 
suelto. 

Si activamos la impresora con P y a conti- 
nuacion le pedimos un DIR, automaticamente 
nos quedara reflejado en el papel el mensaje 
del Promt y la orden de DIR, y todo el conte- 
nido del disco. 

Como anecdotas, podemos decir tambien 
que este codigo lo encontramos en el CPC 
6128 en la tecla de CLR. Cuando la pulsamos 
por primera vez activamos el canal de la im¬ 
presora y si volvemos a pulsarlo lo desactiva- 
mos. 

Cuando realicemos un arranque en calien¬ 
te, el canal de la impresora se encuenfra en 
off. Uno de los defectos que tiene esta utiliza¬ 
tion es que los controladores infernos de la im¬ 
presora no se comportan de forma muy inte- 
iigente si la impresora esta desconectada o no 
preparada cuando el programador o el pro- 
grama le piden que impriman. Con lo cual de- 
bemos tener mucho cuidado con la utilizacion 
de este comando. 

Pues si no tenemos preparada la impreso¬ 
ra y por casualidad nos hemos equivocadc- al 
pulsar Sa tecla de borrar (Delete) un caracfer. 
y por estar tan proximas hemos pulsado las 
de CLR, el ordenador se nos colgaria y ten- 
driemos que inicializar el equipo por comple- 
fo. Esfa es una orden directa para el PCW 
8526, se encuenfra en la tecla de funcion 
F7/F8. 

— Control-Q: Desbloquear la pan¬ 
talla. 

Cuando utilizamos una detention de la pan¬ 
talla para la comprobacion de datos o buena 
realization del programa, utilizamos esta or¬ 
den para renonudar su curso. Normalmente 
se emplea despues de introducir un Conirol- 
S. En el PCW la obtenemos automaticamente 
pulsando F3/F4. 

— Control-R: Repetir linea. 

Cuando ejecutamos una orden Control-R, 
hacemos que el CCP repita o vuelva a escri- 
bir la linea en curso. 

El ordenador nos emite el caracfer« #», un 
CARRIAGE RETURN/LINE FEED, y despues to- 
do el contenido de la memoria interna de If- 
nea de ordenes. 

Esta orden tambien vana un poco en el 
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PCW, en este la tenemos en una sola teda 
«JUST». Podemos empezar a escribir desde 
el principio de la linea hasta la situacion ac¬ 
tual del cursor. 

— Control-5: Bloquear la panta- 
lla. 

£1 comando Control-S nos detiene momen- 
taneamente la ejecucion (o salida por con¬ 
sola) de un programa. £1 efecto es identico 
al que se produce cuando durante un listado 
por'pantalla pulsamos la tecla de ESC, la pan- 
talla se nos bloquea para poder apreciar su 
informacion o la realizacion de cierio progra 
ma. La orden es el caracter de ASCII XOFF, 
es la abreviatura de «Transmit Off». Po 
demos decir que es un interruptor para conec¬ 
tar y desconcectar la saliaa por la consola. Po¬ 
demos desbloquearlo mediante la pulsacion de 
otra tecla o el propio S. Pero lo mas normal 
es que se realice mediante un Q, evitando de 
esfa manera la posibilidad que se rompa el 
pragocolo de comunicacion que exisfa con la 
consola. En el 8256 la tenemos directamente 
en la tecla de funcion F5/F6. 

— Control-U: Delete de linea. 

Otro comando muy practice y peligroso a 
la vez. Nos elimina la linea en la cual tenga- 
mos posicionado el cursor. Este comando nor- 
malmente lo llevan todos los procesadores de 
textos siendo de gran utilidad para la depu- 
racion de documentos. Al borrar la linea in- 
troducida podemos anular todos los errores 
cometidos y empezar de nuevo. La orden se 
nos muestra en pantalia con un caracter «#», 
despues de un CARRIE RETURN/LINE FEED y 
algunos espacios en bianco para dejar alinea- 
do el cursor. 

— Control-W: Repite la linea an¬ 
terior. 

En el interior de nuestra memoria, se busca 
la ultima linea que se encuentra en el buffer 
y nos la manda imprimir en la pantalia. Esto 
se puede realizar siempre y cuando no haya- 
mos introducido ningun caracter en la nueva 
linea. Si hemos introducido alguno, lo borra- 
riamos y llamanamos a la anterior linea. 

- Control-X: Delete total hacia la 
izquierda. 

Nos realiza un movimiento del cursor hacia 
el principio de linea de forma destructiva. Nos 
elimina todos los caracteres que tengamos ha- 
da nuestra izquierda dejandonos los de la de- 
recha intactos. Al igual que K, tenemos la mis- 
rna facilidad de uso. Ahora utilizaremos la mis- 
ma funcion fan solo variando la tecla de bo 
rrado hacia la izquierda. 

— Control-Z: Final de cadeno. 

Esta orden la emplearemos cuando halla- 
mos realizado una cadena con instrucciones 
como PIP y ED, al final de la misma, para in¬ 
dicar al CCP que es un fin logico de cadena. 
Esta orden la obtenemos directamente en el 
PCW pulsando la tecla de funcion F1/F2. 
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Como poder Llenar 
mas Memoria Ram 


Si hojea las paginas de Microhobby Amstrad comprobara que una gran 
parte de los listados de los programas que habitualmente publicamos son 
bastante cortos. Teniendo cerca de 40K de RAM libres para llenarlos de 
instrucciones Basic podemos decir que realmente utilizamos muy poca 
memoria de nuestro Amstrad cada vez que escribimos y ejecutamos uno de 

estos programas 

iQue le parece la idea de poder almacenar varios programas Basic a la vez 
en la memoria? Y no solo eso, sino que si ademas pudieramos relacionar 
unos con otros y hacer que se ejecutara cualquiera de ellos... seria una 

maravilla. 



en la memoria, y al mismo tiempo, to- 
dos los programas de la serie de Pri- 
meros Pasos, por ejemplo, de una se- 
mana. Podriamos seleccionar uno, eje- 
cutarlo, seleccionar ofro, ejecutarlo a 
su vez y comparar ios resultados. Y 
tambien conseguiriamos evitar teclear 
repetidamente un listado o tener que 
acceder al disco o a la cinta con de- 
masiada frecuencia. 

Estas pudieran ser algunas de las 
multiples aplicaciones que tendriamos 
al alcance de nuestra mono una vez 
que podamos disponer de esta facili 
dad. Nos abre todo un nuevo y exten 
so campo de posibilidades a la hora 
de utilizer nuestro ordenador. 

Por ejemplo, podriamos emplear un 
programa para modificar otro. No nos 
seria nada dificii escribir una utilidad 
para resumir uri programa, eliminan 
do todos los REMs que hubiera en su 
listado. Otra cosa que se nos ocurre 
es hacer una de busqueda y sustitu 
cion que nos permita cambiar los 
nombres de las variables, etc. 

Hemos citado algunas ideas que se 
nos han ocurrido, pero seguro que en 
este momenta estaran pasando por su 
mente muchas mas. 

El Programa que acompana este ar- 
ticulo nos permitira almacenar y eje- 
cutar programas Basic en cualquier di¬ 
reccion de la memoria. Esto quiere de¬ 
cir que vamos a poder cargar un pro¬ 


grama en la posicion &1000, por ejem¬ 
plo, otro en la &2000 y un tercero en 
la &30Q0. Y ademas nos sera posible 
seleccionar uno de eilos y ejecutarle. 

Tenemos la facilidad de elegir cual¬ 
quier cifra como direccion de cornien- 
zo de cargo pero precisamente por 
eso le aconsejamos que no lo haga 
alegremente. Escoja unas cantidades 
semejantes a &1000, que sean facili- 
tas, ya que si asi lo hacemos va a re- 
sultarnos relativamente simple mante- 
nernos siempre al tanto de donde he¬ 
mos colocado cada uno de nuestros 
programas. 

Es necesario, tambien, que nos ase- 
guremos de que al escribir un progra 
ma no lo hagamos sobre alguno am 
terior que este colocado en una de- 
terminada direccion. Sin embargo, con 
tantos Ks de memoria RAM como dis¬ 
pone nuestro ordenador, no va a re- 
sultarnos dificii encontrar un espacio li- 
bre. 

El Programa I es un listado en Basic 
de la urifidad y el Programa II es otro 
listado de la misma, pero esta vez en 
lenguaje ensamblador. Elija el que me- 
jor le parezea. 

Cuando los ejecute vera como se le 
anaden algunos nuevos comandos al 
Basic de su Amstrad. En la Tabla I le 
proporcionamos una iista de los mis- 
mos. 

Analicemoslos con detenimiento. LI 
primero e$: 

I PR I NT. PAGE 

Nos vas a imprimir el valor de una 
de las variables del sistema que hemos 
llamado PAGE. Esta en la direccion 
&AE64 si posee el Basic 1.1, en la 
&AE81 si tiene el Basic TO. 

El segundo que nos encontramos es: 

ISET.PAGE, entero 


y, como probablemente ya habra adi- 
vinado, establece el valor que va a te¬ 
ner la variable PAGE. 

Cuando introduzca en memoria un 
programa o lo cargue desde una cin¬ 
ta o un disco, el codigo generado por 
las instrucciones Basic se almacenara 
a partir de la posicion siguiente a la 
indicada por PAGE. Si escribimos el 
comando SAVE, el ordenador nos va 
a salvar el programa que se encuen- 
tre en la memoria colocado donde nos 
indique PAGE. Y lo mismo ocurre si te- 
cleamos RUN. Lo que se nos va a eje- 
cutar es el senalado por la variable 
PAGE. 

Si cambiamos su valor, podemos 
meter en memoria otro programa sin 
alterar el que ya teniamos en la mis- 
rna siempre que, naturalmente, no lo 
escribamos encirna. 

No es cuestion mas que de cambiar 
una de las variables del sistema. Si 
queremos volver a nuestro programa 
primitivo y devolver a page su valor 
original, no podremos hacerlo magi- 
camente. Es necesario que se lo indi- 
quemos correctamente al ordenador. 

Ademas de conocer donde comien- 
za un programa, en Basic tambien 
puede sernos necesario saber donde 
termina. Esta direccion almacena, 
igualmente, en otra de las variables 
del sistema a la que llamamos TOP. 

El Basic necesita conocer su valor, ya 
que a partir de esta posicion es don¬ 
de se almacenan las variables cuan¬ 
do el programa se esta ejecutando. 

Tambien van a ser muy importantes 
otro tipo de apuntadores. Son los que 
le van a decir al interpretador Basic el 
punto donde termina la zona de me¬ 
moria destinada a contener las distin- 
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tas variables que, coma anferiormen- 
te dijimos, van a estar situadas al fi¬ 
nal del programa a partir de la direc- 
cion senalada por TOP. 

Al resultar todos estos apuntadores, 
restablecemos al misrno tiempo el pro¬ 
grama original, que podemos ejecu- 
tar otra vez. 

bs variables, sin embargo, se per- 


deran, y le aconsejamos que teclee 
CLEAR siempre que cambie el valor de 
PAGE. 

La utilidad realiza todo esto automa- 
ticamente. Asi que si alteramos PAGE, 
la rutina examina si hay almacenado 
algun programa en la nueva direccion. 
Si no hay ninguno, o no podemos ele- 
gir el programa exisfente debido a que 


lo hayamos «manchado», se ejecuta 
inmediatamente el comando: 

I NEW. PROGRAM 

Esta orden suprimira el programa 
que haya en la direccion senalada por 
PAGE sin destruir ninguno de los otros 
que comparten en ese momento la 
memoria. La instruction Basic NEW 
limpia todo lo que haya en la misma, 
asi que utilicela con cuidado. 

Un programa puede necesitar cono- 
cer en un determmado momento que 
PAGE, TOP y LOMEM tiene. Veamos 
que es esta ultima palabra: LOMEM 
es la direccion mas baja de la zona de 
memoria que esta libre. jCorrecto? 

Pero, jcomo vamos a saber el valor 
de cada una de estas tres variables? 
La utilidad PAGE nos va a praporcio- 
nar tres nuevos comandos para que lo 
podamos hacer con toda facilidad. 

I GET. PAGE 
IGET.TOP 

IGET. LOMEM 

toman el valor actual de cada una de 
estas variables del sistema y lo coloca 
en una, definida como entera, del len- 
guaje Basic. 

Si hacemos: 

a%=0 

y a continuacion: 

IGET. PAGE, ; o% 

la variable entera contendra ahora el 
valor que tiene en este momento PA¬ 
GE. 

Podemos hacer los misrno para TOP 
y LOMEM. jSe atreve? 

"PAGE" es una utilidad extremada- 
mente usada y de una gran ayuda a 
la hora de programar. Nos permite 
conseguir todas las ventajas de la ge- 
nerosa cantidad de memoria RAM 
que posee nuestro Amstrad. 

Anfmese. Coja una de nuestras re¬ 
vistas y seleccione varios programas 
pequenos. Cargue cada uno de ellos 
en una position seleccionada por el 
comando: 

I SET. PAGE 

siguiendo las indicaciones que le he- 
mos dado y se encontrara con que la 
memoria de su ordenador esta com- 
partida por todos ellos y utilizada con 
un rendimiento bastante mayor. jSuer- 
te! 


IPRINT. PAGE 
ISET.PAGE, integer 
IGET. PAGE, 4Tvariable% 

IGET TOP,ffwiable% 

IGET.LOMBM, f variable% 

INEW.PROGRAM _ 

labia 1. Comandos nuevos 
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HL, -f 1 ags 
1, (HL) 

NZ 

1 , <HL) 

BC,tab]asal 
HL,war kspace 
#BCD1 
#B900 
AE 

A,(#C002) 

A 

Z,lnicializar 
HL,#AE64 
(PAGIM ),HL 
(PAGIN2),HL 
(PAGIN3!,HL 
(PAGIN4),HL 
HL,#AF17 
(DATOl),HL 
CPAT02) , HL 
HL,#AE5E 
(HIMEM),HL 
HL,#AE66 
(SUPL),HL 
(SUPS),HL 
HL,#AE68 
<SHP2),HL 
HL,#AE6A 
(ARRAY),HL 
HL,#AE6C 
(MEMAL1>,HL 
(MEMAL2),HL 
HL,#AE1D 
(EJELIN),HL 



* DAR NUEVO VAL OR A PAGE * 


pagina: 


NZ,errorpar 
chequeo 
E , (IX +0) 

D,(IX+1) 

HI , <#AE7P) 


870 


AND 

A 

1530 

JP 

M2,errorpar 

BBC 


JR 

NZ * nueva 

1540 

LD 

DE, <#AE89) 

890 


OR 

C 

1550 

MEMAL2: EQU 

S-2 

900 


JR 

2 ,varpointer 

1560 

JR 

cp 

910 


DEC 

HL 

1570 

5 


920 


ADD 

HL, BC 

1580 

;***** ESCRI 

BIR CADENA ***** 

930 


PUSH 

HL. 

1590 



940 


AND 

A 

1600 

cadena: 


950 


SBC 

HL, DE 

1610 

POP 

HL 

960 


POP 

HL 

1620 

spl: 


970 


JR 

C, 1inueva 

1630 

LD 

A,(HL) 

9 BO 

; 



1640 

CALL 

#BB5A 

990 

;****** 

**** 1 

NEW ********** 

1650 

INC 

HL 

1000 




1660 

OR 

A 

1 01 0 

nupva: 



1670 

JR 

NZ,sp 1 

1020 


LD 

HL,(#AEB1) 

1680 

JP 

(HL) 

1030 

FAGIN7: 

EQU 

$-2 

1690 

; 


1040 


LD 

(#AE30>,HL 

1700 

;»**** ESCRIBIR PAGE ***** 

1050 

DAT02: 

EQU 

$-2 

1710 

? 


1060 


LD 

(HL),#00 

1720 

escribir: 


1070 


INC 

HL 

1730 

LD 

A, #26 

1080 


LD 

(HL),#00 

1740 

CALL 

#BB5A 

1090 


INC 

HL 

1750 

LD 

HL,(#AEB1) 

1 100 


LD 

(HL),#00 

1760 

PAG IN3s EQU 

*-2 

1 110 

varpointer: 


1770 

; 


1120 


INC 

HL 

1780 

;** ESCRIBIR 

PALABRA HEX ** 

1130 


LD 

(#AE83),HL 

1790 

5 


1 140 

SUPl: 

EQU 

S-2 

1800 

hexpal: LD 

A, H 

1 150 


LD 

< #AE85) ,HL 

1810 

CALL 

hex 

1 160 

SUF'2: 

EQU 

*-2 

1820 

LD 

A,L 

1 1 70 


LD 

(#AE87),HL 

1B30 

> 


1 180 

ARRAY: 

EQU 

$-2 

1840 

;*** ESCRIBIR BYTE HEX *** 

1 190 


LD 

(#AEB9),HL 

1850 

! 


1200 

MEMAL1: 

EQU 

$-2 

1860 

hex: PUSH 

AF 

1210 


CALL 

cadena 

1870 

RRCA 


1220 


DEFB 

"o","k",13 

1880 

RRCA 


1230 


DEFB 

10,7,0 

1890 

RRCA 


1240 


RET 


1900 

RRCA 



1250 

1260 

1270 

1280 


;* PONER PAGE EN VARIABLE * 


cogerpag: 


630 HIMEM: 

EQU 

%-?. 

1290 


DEC 

A 

640 

DEC 

H 

1300 


JP 

NZ,errorpar 

650 

PUSH 

HL 

1310 


LD 

DE,(#AE81) 

660 

AND 

A 

1320 

PAGIN4: 

EQU 

*-2 

670 

SBC 

HL, DE 

1330 

cp: 



680 

JP 

C,nositlo 

1340 

LD 

L,(IX+0) 

690 

LD 

HL,#016C 

1350 


LD 

H,(IX+1) 

700 

SBC 

HL, DE 

1360 


LD 

(HL),E 

710 

EX 

DE, HL 

1370 


INC 

HL 

720 

POP 

DE 

1380 


LD 

(HL),D 

730 

JP 

NC,nopuedo 

1390 


RET 



740 

750 

760 

770 


PAGIN1: 


DATOl: 


LD 

EQU 

LD 

EQU 


(#AE81),HL 
*-2 

(#AE30>,HL 
$-2 


1400 
1410 
1420 
1430 


* PONER TOP EN VARIABLE * 


superior: 


780 LD 

A,(HL) 

1440 

DEC 

A 

790 AND 

A 

1450 

JP 

NZ,errorpar 

800 JR 

NZ,nueva 

1460 

LD 

DE, < #AE83) 

810 INC 

HL 

1470 SUP3: 

EQU 

S-2 

820 linueva: 


1480 

JR 

<=p 


830 

840 

850 

860 


LD 

INC 

LD 

LD 


C,(HL) 
HL 

B,(HL) 
A, B 


1 490 
1500 
1510 
1520 


;* FONFR LOMEM EN VARIABLE * 
1 omem: 

DEC A 


1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
21 BO 


hex 1: 


CALL hex 1 
POP AF 
AND #0F 
ADD A,#90 
DAA 
ADC 
DAA 
JP 


A, #40 


#BB5A 

)******** ERRORES ******** 
nopuedci: 

CAL.L- cadena 
DEFB "N","o"," 

DEFB "p","u","e 
DEFB "d","o"," 
DEFB "h" ,"a",”c 
DEFB "e","r","1 
DEFB "o" , " ! " , 13 
DEFB 10,7,0 
RET 


nositio: 


POP HL 
CALL cadena 
DEFB "N","o", 
DEFB "h","a", 
DEFB " ","s". 
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2190 

DEFB 

“t " ,"i","o" 

2200 

DEFB 

".",13,10 

2210 

DEFB 

7,0 

2220 

RET 


2230 ; 



2240 error: 

CALL 

c adena 

2250 

DEFB 

"E","r","r " 

2260 

DEFB 

"o","r"," " 

2270 

DEFB 

"R",”S","X" 

2280 

DEFB 

13,10,7 

2290 

DEFB 

0 

2300 

RET 


2310 ; 



2320 chequeo 



2330 

LD 

HL,(#AE36) 

2340 EJEI IN: 

EQU 

$-2 

2350 

LD 

A, H 

2360 

OR 

L 

2370 

RET 

Z 

2380 

POP 

HL 

2390 

CALL 

cadena 

2400 

DEFB 

"P","r ","o" 

2410 

DEFB 

"g" , "r 11 , "a" 

2420 

DEFB 

"m","a"," " 

2430 

DEFB 

"e","n " „" " 

2440 

DEFB 

"e","j","e" 

2450 

DEFB 

"c","u","c" 

2460 

DEFB 

"i","o","n" 

2470 

DEFB 

" ! " , 13, 10 

2480 

DEFB 

7,0 

2490 

RET 


2500 ; 



2510 errorpar: 


2520 

CALL 

cadena 

2530 

DEFB 

"0","1 ","v" 

2540 

DEFB 

"1","d","o" 

2550 

DEFB 

M ii ^ ii^", "e" 

2560 

DEFB 

,, 

2570 

DEFB 

"G","E", n !" 

25B0 

DEFB 

13,10,7 

2590 

DEFB 

0 

2600 

RET 


2610 ; 



2620 ;***» TABUA 

DE SALTOS ** 

2630 ; 



2640 tablasal: 


2650 

DEFW 

nomtab1 a 

2660 

JP 

escribir 

2670 

JP 

nueva 

2680 

JP 

pagina 

2690 

JP 

cogerpag 

2700 

JP 

superior 

2710 

JP 

1 omem 


2720 s 

2730 ;***« TA6LA DE NOMBRES **** 
2740 ; 


2750 

nomtabla: 




2760 

DEFB 

"P", 

"R", 

"I" 

2770 

DEFB 

"N" , 

"T" , 

" . " 

2780 

DEFB 

"P", 

"A”, 

"G" 

2790 

DEFB 

#C5 



2800 

DEFB 

" N ", 

"E", 

"W" 

2810 

DEFB 

". ", 

"P" , 

"R" 

2820 

DEFB 

"0" , 

"G", 

"R" 

2830 

DEFB 

"A", 

#CD 


2840 

DEFB 

"S", 


"T" 

2850 

DEFB 

11 • " ? 

"P" , 

"A" 

2860 

DEFB 

"G" , 

#C5 


2870 

DEFB 

"G", 

"E", 

"T" 

2880 

DEFB 

" . 11 , 

"F", 

"A" 

2890 

DEFB 

"G", 

#C5 


2900 

DEFB 

"G", 

"E", 

"T" 

2910 

DEFB 

H •• 

» f 

"T" , 

"0" 

2920 

DEFB 

#D0 



2930 

DEFB 

"G", 

"E" , 

„ T „ 

2940 

DEFB 

" , " , 

"L”, 

, "0" 

2950 

DEFB 

"H”, 

"E", 

,#CD 

2960 

DEFB 

#00 



2970 

5 




2980 

workspace: 




2990 

DEFW 

#00 



3000 

DEFW 

#00 



3010 

; 




3020 

f1ags: 




3030 

DEFB 

#0 




10 

REM IJTILI DAD "PAGINA" 


20 

REM DE 

R.A.WADDILOVE 


30 

REM <c) MICROHOBBY AMSTRAD 


40 

REM CALL & A000 para ??????? 


50 

MEMORY 

¥<9FFF: di. recci on-S'AOOO 


60 

FOR i = 

1 TO 44 


70 

5uma=C 

: READ codiyo$, cheqLieo$ 


80 

FOR j = 

1 TO 21 STEP 2 


90 

byte=VAL ( "¥'"+MID* (ciodigo*, j , 2) ) 


100 

POKE 

dir eccion,byte 


110 

SLima= 

suma+byte:direccion=direcc 


i on+ 1 



120 

NEXT 



130 

IF suma< >VAL ( ”?<"+chequeo*) THEN 


PRINT "ERROR DE OATHS EN LA LINEA 


" ; 140+i * J 0 


140 

NEXT 

I 


150 

DATA 

21E7A1CB4FC0CBCE0199A1,656 


160 

DATA 

21E3A1CDD1BCCD00B9F53A,6B4 


170 

DATA 

02C0A728422 1 64AE229CA0,464 


180 

DATA 

22BAA02214A122E4A02117,431 


190 

DATA 

AE229FA022BDA0215EAE22,4DD 


200 

DATA 

87AO2166AE22C9A022F6A0,59F 


210 

DATA 

2168AE22CCA0216AAE22CF, 4F.F 


220 

DATA 

AO216CAE22D2A02200A121,453 


230 

DATA 

1DAE2267A1F1CDOCB9CD04,549 

- 

240 

DATA 

A15061676520557 4696C69,445 


250 

DATA 

7479206F6B2E070D0A00C9,2FC 


260 

DATA 

3DC285A1CD66A1DD5E00DD,611 


270 

DATA 

56012A7BAE25E5A7ED52DA,574 


280 

DATA 

45A1216C01ED52EBD1D22F,570 


290 

DATA 

A122B1AE2230AE7EA72014,44B 


300 

DATA 

234E23467QA7200CB12817,315 


31 0 

DATA 

2B09E5A7ED52E138ED2A81,5B0 


320 

DATA 

A E 2 230AE36002336002336,296 


330 

DAT A 

00232283AE2285AE2287AE, 422 


340 

DATA 

2289AECD04A16F6B0D0A07,3C3 


350 

DATA 

00C9-3DC285A1 ED5B81AEDD, 642 


Zh 0 

DATA 

6E00DD6601732372C93DC2,482 


370 

DATA 

85A1ED5B83AE1SEC3DC285,627 


380 

DATA 

A1ED5B39AE18E2E17ECD5A, 6A0 


390 

DATA 

BB23B720F8E93E26CD5ABB, 5DC 


400 

DATA 

?AR1AE7CCD1 BA17DF50F0F,4EE 


41 0 

DATA 

0F0FCD24A1F1E60FC69027,513 


420 

DATA 

CE4027C35ABBCD04A14361,523 


430 

DATA 

6E277420646F2074686174,3CD 


440 

DATA 

210D0A0700C9E .1CD04A14E, 3A9 


450 

DATA 

6F20726F6F6D0D0A0700C9,333 


460 

DATA 

CD04A1525358206572726F,447 


470 

DATA 

720D0A0700C92A36AE7CB5,398 


4 BO 

DATA 

C8E1CD04A150726F677261,586 


490 

DATA 

6D2072756E6E696E6721OD,3BC 


500 

DATA 

0A0700C9CD04A1466F7267,3DA 


510 

DATA 

6F742050414745210D0A07,25F 


520 

DA T A 

00C9ADA1C30EA1C3B9A0C3,668 


530 

DATA 

79AOC3DEAOC3FOAOC3FAAO,80A 


rr A /"> 
~r 

n/\ t a 
n i n 

c:nr;n .4 0;trc:il0rc;,‘t/i 1 4 7r*7 /I C 7AL 
\ ; s . r / t «— > / i -t, i t -j i j. -i » t i— ^ i i > 


550 

DATA 

A 5572E5G524F 475241CD53,3B5 


560 

DATA 

45542E504147C54745542E, 372 


570 

DATA 

50414 7C54745542E544FD0, 41E 


530 

DATA 

4745542.E4C4F4D45CD0000,308 
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Prueba 

COMPARATIVA DE 

Basics 

El Basic es, sin duda alguna, el idioma mas 
hablado por las or denar ot es personales. Esto 
deberia significar que un programa realizado con 
cualquiera de ellos, vaidria sin mas para los 
demas. Pero como todos sabemos esto dista de 
ser una realidad. Hemos probado algunos de los 
ordenadores mas vendidos del mercado, para 
comparar sus «Basic's» y ver sus peculiaridades. 



os ordenadores elegi- 
dos son, ademas del Amstrad CPC, el Spec¬ 
trum, el QL, un MSX, el Commodore, y como 
punto de comparacion hemos elegido el Ba¬ 
sic Microsoft que usan multitud de ordenado¬ 
res, probando su velocidad en dos de los mas 
famosos: el IBM PC y el APPLE Macintosh. 



Resulta evidente que estos dos ordenadores 
estan a un precio superior c los demas, (por 
lo menos hasta que Amstrad compre las fa- 
bricas de IBM y APPLE, cosa que nunca se sa- 
be...) pero es conveniente incluirlos como pun¬ 
to de referenda, dado que el Basic que utili- 
zan es el que mas se acerca a un estandar. 

Oira advertencia que hay que hacer, basi- 
camente para las pruebas de velocidad, es que 
tanto el IBM como el Macintosh y el QL son 
distintos a los demas a nivel de Hardware, y 
entre otras cosas el microprocesador es dis- 
tinto del Z 80 que llevan los demas, lo que ha 
influido en muchos aspectos, sobre todo en el 
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aspecto de la velocidad, llevandonos alguna 
vez a resultados curiosos, por no decir sor- 
prendentes... 

Para la realizacion de este estudio, se han 
inciuido unos bancos de pruebas pensados pa 
ra calcular el tiempo que tarda cada Basic en 
realizar alguna de las cosas mas comunes den- 
tro de un programa. Pero hay que advertir que 
la validez de las pruebas de velocidad es re¬ 
lative. Tienen el valor que se les quiera dar, 
ni mas ni menos, pero se han inciuido para te- 
ner una referenda mas, entre otras que tam- 
bien se proporcionan, Pero no busquen una 
clasificacion final. No la hay, Simplemente en- 
contraran las caractensticas pririapales de co¬ 
da uno de ellos, en que aspectos destaoan, y 
en cuales fallen. Si uno es mejor o peor que 
otro es cuestion de las necesidades de cada 
usuario, y en consecuencia de lo que este le 
vaya a pedir. 


Bancos de prueba 


Se han realizado a cada ordenadar cinco 
pruebas distintas, cuyos listados aparecen en 
el cuadro adjunto. El primer banco de prue¬ 
bas mide el tiempo que tarda cada ordena- 
dor en realizar una operacion mafematica que 
incluye funciones trigonornetricas. Se han ele¬ 
gido este tipo de funciones con una razona- 
ble dosis de mala uva. La realizacion de ope- 
raciones trigonornetricas exige al ordenador 
la creccion y manejo (internamente) de unas 
tablas, por io que el tiempo que se tarda es 
mayor que en otro tipo de operaciones. 

La segunda prueba que se les ha puesto es 
para medir el tiempo que tarda en realizar 
operaciones de lectura y escritura en disco. E$- 
ta prueba solo se ha hecho en el Amstrad, 
el IBM PC y el Macintosh, que son los unices 


aue llevan dicha unidad incorporada. En los 
demas, dado que realizarla con cassette era 
claramente injusto, y que en algun caso aun- 
que se puedan conectar unidades de distintas 
marcas y sistemas, estas no van incluidas en 
el «equipo bdsico» del mismo, hemos de- 
cidiao liberarles de esta prueba. La prueba en 
si, consiste en crear un fichero secuencial, gra- 
bar doscientos datos, cerrar el fichero, volverlo 
a abrir, leer los doscientos datos, presentar- 
los en pantalla y cerrar el fichero. 

En la tercera prueba se han gastado las dosis 
aue quedaban de mala uva. Se trata de or- 
aenar alfabeticamente por el conocido y len¬ 
to metodo de la burbuja, quince matrices di- 
vididos en tres grupos, en cada uno de los cua¬ 
les las matrices eran muy parecidas. El traba- 
jo con matrices alfanurnericas es otra de las 
facetas que los ordenadores suelen manejar 
con cierta lentitud. 

La cuarta prueba tiene dos objetivos. El pri- 
mero es medir el tiempo que tarda el ordena¬ 
dor en realizar un bucle, y el segundo es veri- 
ficar la exactitud de las operaciones numeri- 
cas. El programa consiste en sumar mil veces 
0,001. Esto, naturalmente da como resultado 
1. Ahora bien, algunos ordenadores utilizan 
un metodo de calculo interno muy peculiar que 
hace que el resultado de esta operacion se 
aproxime mucho a uno, sin serlo. Se ha evita- 
do el habitual redondeo, para comprobar el 
resultado exacto. 

La ultima prueba mide el tiempo que tarda 
el ordenador en llenar la pantalla con texto 
y despues borrarla. A pesar de las diferentes 
maneras que tienen los ordenadores de aes- 
tionar la pantalla, aqui los resultados no han 
sido ni divertidos ni sorprendentes. Mas bien 
han sido normales. Pero pasemos a comentar 
los resultados de cada prueba. Que cada or¬ 
denador se levante al ofr su nombre, para es- 
cuchar los resultados de sus pruebas. Los que 
suspendan algun parcial, podran volverse a 
examinar en septiembre. (Vaya por Dios, ya 
me he liado. En que estaria yo pensando...). 


1) Velocidad de calculo 

Los resultados en esta prueba han sido por 
lo menos, curiosos. El QL de Sinclair demues- 
tra ser el mas rapido con diferencia, mientras 
el Macintosh logra un pesimo penultimo pues¬ 
to, aventajando solo al Spectrum. (Ya po- 
dra...). El Amstrad logra un honorable ter- 
cer lugar, a dos decimas de segundo de todo 
un IBM. Commodore y MSX hacen unos tiem- 
pos medios. 


2) Lectura y escritura 
de ficheros 

Aqui solo se le ha hecho la prueba a los tres 
ordenadores que llevan unidad de disco inte- 
grada, y los resultados son de lo mas norma- 
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!es. El Amstrad queda descolgado de los 
IBM y Macintosh, cuya fecnologia es mucho 
mas avanzada, y su sisfema operativo mas mo- 
derno. 


3) Ordenacion por el metodo 
de la burbuja 

Esta prueba nos aepara otra sorpresa. Los 
tiempos en todos los ordenadores son simila- 
res excepto en uno. Y resulta curioso porque 
habiendo dos ordenadores de la misma mar 
ca en estas pruebas, no es el mas barato el 
peor, no, sino el otro. El QL, que hace un tiem- 
po sensiblemente superior a los demds, catorce 
segundos frente al mas rapido. El Amstrad, 
solo es superado por «los caros», IBM y 
Macintosh, 


4) Calculo numerico 

Como hemos dicho, esta prueba pretende 
determinar tanto la velocidad como la preci¬ 
sion a la bora de hacer determinados calcu- 
los numericos. En cuanto a la velocidad, el que 
mas se sale de la media es el Commoaore, y 
un poco menos ei Spectrum. Los demds hacen 
los tiempos que se puede esperar de ellos, que- 
dando el Amstrad muy bien dasificado, en 
la segunda posicion, solo superado por el Ma¬ 
cintosh. 

Y en precision, fres ordenadores no dieron 
el resultado deseado, que era 0. Esros son 
Amstrad, Commoaore y Spectrum. Aqui hay 
que insistir que esto se debe al sistema inter- 
no de calculo de cada uno, y el redondeo o 
truncacion que hacen a partir de un numero 
de decimoles. No tiene tanta imporfancia co¬ 
mo parece. 


5) Rapidez en presentacion 
de textos 

Esta prueba presenta dos grupos de resul- 
T ados. El primero, los rapidos, compuesto por 
Commoaore, MSX, Spectrum, QL y IBM. El se- 
gundo, los lentillos, compuesto por Macintosh 
y Amstrad, No obstante, se esta hablando 
de una diferencia maxima de cuatro segundos 
entre el mas rapido y el mas lento, lo que re- 
sulia poco apreciable. 


6) Media de resultados 

Si se observa la media realizada por cada 
ordenador en las cuatro pruebas que ban rea- 
iizado todos, el mas veloz es el IBM. Pero sor- 
prendentemente, el Amstrad resulta ser mas 
veloz que los demas, en promedio. Natural- 
mente esto no quiere decir que sea el mejor, 


ni que los demds sean muy malos. Simplemen- 
te, el Basic Locomotiv resulta ser un Basic fran- 
camente rapido. En cuanto a la diferencia de 
tiempo entre el IBM y el Macintosh, que usan 
el mismo Basic, se debe seguramente mas a 
razones de Hardware que de Software. El QL 
se situa en una posicion media, que no dice 
nada a favor ni en contra de el. 
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7) ]Condusiones? 

Cada cual a la vista de los resultados, pue¬ 
de sacar las suyas. Incluso se podrian poner 
otro tipo de pruebas, y seguramente los resul¬ 
tados no serian los mismos. Esta es la razon 
por la cual este tipo de pruebas cuentan con 
bastanie oposicion. Pero la reaiidad es que 
tampoco nadie se pone de acuerdo para bus- 
car un metodo mejor. 


Repaso 

a las instrucciones 
de los distintos Basic's 

Ademas de lo dicho hasta ahora, vamos a 
darle un repaso a las posibilidades que tienen 
los distintos Basic's, expresaaas por la canti- 
dad de instrucciones que cada uno de ellos po- 
seen y sus posibilidades, y divididas por gru¬ 
pos, segun su funcion. 


1) Comandos de manejo 
de ficheros 

Se pretende saber las posibilidades que tie¬ 
ne cada ordenador para manejar ficheros, y 
el alcance de las mismas. 

El MSBasic del IBM y MAC, fueron casi a to¬ 
pe, y de manera similar en ambos. Posee co- 
mandos para operar con ficheros secuencia- 
les y aleatorios. permitiendo en los secuencia- 
les anadir registros en ficheros ya existentes. 
Una opcion interesante en el IBM, es que se 
puede tener abierto un fichero de dos mane- 
ras diferentes con distinto numero con lo que 
se puede acceder simultaneamente de mane¬ 
ra secuencial y al azar, o secuencialmente pa¬ 
ra enfrada y salida de datos. Permite tener 
hasta quince ficheros abierto a la vez. No ges- 
tiona ficheros indexados, aunque per otra par 
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te en ordenadores de este precio para abajo, 
creo que solo lo hace el nuevo PCW 8256. 

El Locomotiv Basic de Amstrad maneja 
simplemente los ficheros secuenciales sencilli- 
tos. A pesar de la unidad de disco integrada 
en el CPC 664 (R.I.P.) y 6128, no tiene pre- 
vistos comandos para usar ficheros aleatorios, 
teniendo que recurrir a una rutina en codigo 
maquina, que no es lo que se puede llamar 



«un modelo de perfeccion». En resu 

men, muy mejorable. 

El QL, flamante demostracion de tecnologia 
de la mano de Sinclair, posee su propio siste- 
ma de almacenamiento. Son los Microdrives, 
pequenos cartuchos de cinta magnetica. Aun 
siendo mas rapidos y comodos que el casset¬ 
te, y teniendo en cuenta que viene con dos uni- 
dades incluidas en la maquina, cosa muy util, 
no se aproximc ni a la velocioad ni a la efec- 
tividad del disco. Tampoco puede usar fiche¬ 
ros de acceso aleatorio. Los comandos que 
ofrece para la gestion de los ficheros secuen- 
ciaies induyen la posibilidad de modificar da- 
tos ya grabados. Por esta parte, bien. El res- 
to, normal. 

En el Commodore si esta prevista la insta- 
lacion de unidad de disco a nivel de Basic, ade- 
mas de los habitudes de ficheros secuencia¬ 
les. Su manejo y sinfaxis son comunes, no ofre- 
ciendo ninguna complicaciors. 

El Basic resto de los ordenadores solo tie- 
nen previsto el uso de ficheros secuenciales. 
Al conectar la unidad de disco, el sistema ope¬ 
rative del mismo debe proporcionar dichos co¬ 
mandos, de una u otra manera, pero en ei Ba¬ 
sic original de la maquina ni rastro. 


2) Comandos graficos 

El MSBasic dibuja en el IBM PC con dos po- 
sibles resolucione$. 320 X 200 puntos con 4 co¬ 
lores, y 640x200 puntos con 2 colores. Dis¬ 
pone de once comandos para el dibujo de gra¬ 
ficos. Permite definir las coordenadas de di¬ 
bujo en cifras absolutas y relativas al ultimo 
punto dibujado, pero no ofrece SPRITES. El re- 
sultado final bueno, pero mejorable. 

En cuanto al Macintosh, su sistema de dibujo 
es muy bueno, pero diferente. Se hace recu- 
rriendo al firmware, pero no poniendo la di- 
reccion de memoria que dibuja el grafico, si- 
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no su nornbre, Asi resulta mas facii de utilizar, 
y la calidad lograda es grande, aunque en 
bianco y negro dado que el monitor que 'le¬ 
va incorporado no es en color, 

El Basic Locomotiv dispone de varias instruc- 
ciones para la realizacion de graficos en 3 an- 
churas de pantalla. El numero de coiores si- 
multaneos depende de esta, osciiando entre 
echo y dos colores der.tro de una paleta de 
26. La gestion de estos colores resulta un po- 
co liosa, soore todo al principio, pero permi¬ 
te multitud de cosas, como relienar dibujos... 
En graficos, diversos comandos permiten rea- 
lizar una gama de dibujos muy amplla, asi co¬ 
mo definir las coordenadas absoluta y relati- 
vamente. Quiza el unico «pero» que se le 
puede poner es que no cuenta con ninguna 
funcion ya definida para realizar algun grafi¬ 
co en concreto, (porejemplo CIRCLE... 1 - ni de- 
finicion directa de SPRITES. A pesar e esto, 
buena nota. 

El QL puede dibujar con ocho o cuafro co 
lores, segun la resolucion que se use. Admite 
512x256 puntos y 256x256 puntos. Tiene un 
amplio repertorio de comandos graficos, y es 
bastante facii de entender y usar. Hay que dar- 
le muy buena nota. 

Ei Commodore es famoso por sus graficos. 
Se pueden programar hasta ocho SPRIT ES, dis¬ 
pone de una paleta de dieciseis colores, alta 
y ba|a resolucion, y... dos «hermosas» ins- 
trucciones para manejar todo esto: PEEK y PO 
KE. Puede ser cuesiion de gustos, pero pare- 
ce complicado de manejar sin el manual. 

El «modesfo» Spectrum, tiene una pale¬ 
ta de ocho colores con dos niveles de brillo. 
Pero dentro de su modestia, el Basic se defien- 
de en una dignisima posicion, contando con 
instrucciones mas que suficientes para sacar- 
le partido y hacer buenos graficos. 

Y el MSX Basic oosee ocho instrucciones gra- 
ficas, sprites, y una paleta ae quince colores. 
Resulta uno de los Basic's quiza mas comple¬ 
tes en este aspecto, y ademas sus comandos 
son faciles de entender y manejar. Muy bien 
en este aspecto. 

3) Comandos de manejo 
del microproeesador 

Aqui el MSBasic del IBM PC y el Macintosh 
no es lo que se dice el RAM BO de los lengua- 
jes Basic, Solo dispone de una funcion de re- 
loj, pero no incorpora ninguna funcion para 
manejar interrupciones desde el Basic. Algu- 
no que otro le da sopas con honda. 

Uno de los que le superan es el Locomotive 
Basic, que dispone de cuatro instrucciones dis- 
tintas para programar interrupciones, que le 
permiten simular una gestion multiarea. Aqui 
el Locomotive alcanza una nota muy alia. 

El MSX Basic permite controlar interrupcio¬ 
nes a traves de cuatro instrucciones. No es tan 
completo como el Locomotive, pero supera al 
resto de los ordenadores probados, por un 
amplio margen. 


iO ’B.P. Calculo Ingonometnco. 

IS DIM res*/. (1 1 ) 

20 FOR n-0 TO 10 STEP 1 
30 FOR j-1 TO 5 
40 FOR 1 TO 5 

50 DEF FNfunc* SIN<2*PI/<n +1)*j)ICC 
S(2*PI/<n + l)*k> 

60 res*/. (n+1) ®res*/. (n+1 ) +FN-f unc 
70 NEXT ^ 

SO NEXT j 

90 PRINT "Para N= ";n; "la Funcion 
vale ";res%<n+1> 

100 NEXT n 


10 ’ Prueba Numero 2 

20 REM tiempo de operacion en -flche 
ros. 

.30 DIM x * <100 >,y*(100 > 

40 FOR a*l TO 100 
50 READ xi(a),y*(a) 

60 RESTORE 230 
70 NEXT a 

80 OPENOUT "Pruebas.dat" 

90 FOR a®1 TO 100 

100 WRITE #9,x*<a),y*(a) 

110 NEXT a 
120 CLOSEOUT 

130 OPENIN "Pruebas.dat" 

140 FOR a=1 TO 100 

150 INPUT #9,xi(a),yt(a) 

160 NEXT 

170 CLOSEIN 

180 FOR a -1 TO 100 

190 PRINT x*(a),y$ <a),"GRABADO" : 

200 NEXT 

210 PRINT "FIN" 

220 END 

230 DATA "ABCDEFGHIJ","0123456789” 


10 ' Prueba Numero 3 

20 * Ordenacion por el metodo de la 
burbu ya 
30 DIM a*<15) 

40 FOR TO 15 

50 READ a*<x> 

60 NEXT x 
70 FOR y-1 TO 15 
80 FOR 2-y+l TO 15 

90 IF a*<z)<a*(y) THEN bl-af(y): a* 
(y)(z):<z ) b$ 

100 NEXT z 
110 NEXT y 
120 FOR x-1 TO 15 
130 PRINT a*<x) 

140 NEXT x 

150 DATA "AAAAAAAAAAAAAAAAAAAB","AA 
AAAAAAAAAAAAAAAAA1 ","AAAAAAAAAAAAAA 
AAAAA3","AAAAAAAAAAAAAAAAAAA ","AAA 
AAAAAAAAAAAAAAAA" 

160 DATA " 1 2345abcde-f g ! <^ADS$A" , "Al 
a 1 bSBc $Cd2D#34*/.e* : ", " 12345abcdegf < ! 
ADSA* 3 " , " 12A34a‘/.&36t’/.+ : 1234B* " , "A*S 
DA^C!gfedcba54321" 

170 DATA "12345678909876554321”,"13 
579086421357908642","13246579808978 
675645","1234567890-^+1234567","123 
4567890987654321" 


10 'Exactitud Numenca 
20 a=0 

30 FOR x«1 TO 1000 
40 a*a+0.001 
50 NEXT x 
60 a«a-l 
70 PRINT a 


10 'Prueba d« texto 
20 MODE 1 

30 a*®STRING*<40,"*") 
40 FOR x*l TO 25 
50 PRINT a*; 

60 NEXT x 
70 CLS 
80 ENDi 
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El resto de los ordenadores probados no 
permite realgar interrupciones a troves del Ba¬ 
sic. Ni rostro de comandos de este tipo. 


4) Comandos de gestion 
de cadenas y matrices 

Aqui si. Excepto convertir una cadena en 
una salcbicha con queso, el MSBasic que usan 
Macintosh e IBM lo hace todo. 0 por lo me- 
nos, todo lo que se ha inventado hasta la fe- 
cha. Sin mas comentarios. 

Aunque el Locomotiv Basic no le anda a la 
zaga. Posee las mismas instrucciones, y con un 
formato practicamente igual. Ambos lengua- 
jes son practicamente igual de Duenos en este 
aspecto. 

El MSX se une a los dos anteriores, poseyen 
do un amplio repertorio de instrucciones pa¬ 
ra ei manejo de cadenas y matrices. Estas son 
ademds casi iguales a las de los ariteriores, pu- 
diendose hablar en este caso, de que son es- 
tandar. 

E! Commodore se queda corto, comparado 
con los anteriores. Dispone de las funciones 
justas, y desde luego sin ningun refinamiento. 
En resumen, espartano. 

El Spectrum se aleja de lo comun en el ma¬ 
nejo de cadenas y matrices. Resulfa limitado 
para manejar grandes cadenas, y difiere un 
poco en matrices, aunque en este aspecto se 
defiende mejor que en las cadenas. Regular 
sin mas. 

El Basic del QL tambien se sale de lo habi¬ 
tual, al igual que su hermano pequeno. Pro- 
porciona, no obstante, unas posibilidades si 
milares a las de MSBasic. Aqui se ha esmera- 
do Mr. Sinclair. 


5) Comandos de sonido 

Siete octavas y 84 notas combinables con 
dos instrucciones son las posibilidades sono- 
ras del MSBasic. Asi, como suena. La senten¬ 
ce SOUND, que perrnite seleccionar la fre- 
cuencia y duracion de un sonido, y la senten- 
cia PLAY, muy buena, que permite realizar so¬ 
nido a traves de una cadena de caracteres, 
y de utilizacion muy sencilla. Ademds, resulta 
muy facil de utilizar. A nivel de Hardware el 
IBM no proporciona una calidad tan alta co¬ 
mo ei Macintosh, aunque este dispone ade 
mas de lo dicho, comandos en codigo mdqui 
na que aumentan claramente sus posibilida¬ 
des. 

El Locomotiv Basic de Amstrad, propor- 
ciona muchas posibilidades sonoras. El orde- 
nador posee tres canales de saliaa de sonido, 
los tres comandos disponibles permiten de- 
nir envolventes de tono, de volumen y notas, 
Aqui el repertorio de combinaciones posibles, 
suena bien. 

El sonido es la otra faceta famosa del Com¬ 


modore. Unas posibilidades sonoras franca- 
mente buenas, pero a que nadie adivina co¬ 
ma se usan. Sorpresa: con PEEK y POKE. En 
este ordenador parece que todo se puede ha- 
cer con dos palabras. 

La capacidad sonora de los MSX es muy am- 
plia, poseyendo tres canales de sonido que son 
manejados a traves de dos instrucciones y un 
repertorio de mocrocomandos para especifi- 
car la nota, duration, pausa, ritmo, intensidad, 
timbre, y para asignar instrucciones al confe- 
nido de variables. Sin duda es un amplio re- 
pertorio, no es muy facil de manejar, pero con 
grandes posibilidades. 

Parco, como de costumbre, el Spectrum so¬ 
lo tiene un comando para producir sonido, es- 
pecificando duracion y tono. Resulta simple de 
utilizar, aunque los resultados tampoco son pa¬ 
ra quedarse sordo de alegria. 

Y el QL se parece mucho a su hermano pe- 
queho. Una sola instruction, y varios parame- 
tros para detinir duracion, volumen, interva- 
lo, etc. El balance es identico al del Spectrum. 

6) Comandos de gestion 
de la pantalia. Editor 

El MSBasic del IBM PC ofrece dos anchos de 
pantalia, que son 40 y 48 columnas. El coman¬ 
do window no define ventanas, sino las coor- 
denadas de la unica ventana, permitiendo ha- 


cer un efecto ZOOM a lo Valerio Lozarov. El 
editor es de pantalia, y muy comodo de utili¬ 
zar. 

El Macintosh posee un editor distinio, que 
no necesifa numeros de linea, y opera a base 
de etiquetas. Ademds de curioso, cosa comun 
a todas las funciones de este ordenador, muy 
practico y moderno. 

El Basic Locomotiv permite definir hasta ocho 
ventanas de texto y una de graficos. Su edi¬ 
tor dispone de varies funciones que facilitan 
realizar un texto, colocarlo adecuadamente en 
la pantalia, y resulta muy comodo y facil de 
utilizar. 

El MSX tiene un repertorio de instrucciones, 
en su mayoria iguales a las de los anteriores. 
Su editor es normal, con bastantes funciones 
de edicion y seguimiento de programa. Es fa- 
cil de utilizar, y proporciona un rendimiento 
muy bueno. 

En el mundillo de los ordenadores, el edi¬ 
tor que posee el Commodore es famoso, y no 
precisamente por su lodo positivo. Es mcomo- 
do y complicado. Las teclas poseen varias fun¬ 
ciones, entre ellas el cambio de color, pero es- 
to no ayudo, sino que mas bien complica aun 
mas su manejo. 

El editor del Spectrum se mantiene en la me¬ 
dia. No es extraordinario, pero tampoco es 
malo. Es facil acostumbrarse a el, una vez que 
se aprende el significado de los cursores. La 
gestion de pantalia es mejor, con instruccio- 
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nes fdciles de utilizar, y resultados mas que 
aceptables. 

En cuanto al QL ; supongo que es cuestion 
de gustos, pero a mi no me gusta. No es com- 
plicado de manejar y divide la pantalla en dos 
ventonas, aunque e$fo se puede modificar, 
mediante la habitual instruccion WINDOW. 
Posee dos ajustes, segun se este utilizando un 
monitor o una television. 

7) Comandos de salida 
a la impresora 

En este aspecto, el MSBasic es sencillo co- 
mo el mecanismo de un chupete, tanto en uno 
como en otro ordenador. La comunicacion con 
la impresora se dace a traves de instrucciones 
normales a las que se antepone la letra L. 

El MSX, se une al anterior, usando identica 
letra para distinguir el envio de la informacion 
a la pantalla o a la impresora. 

El Spectrum envia la informacion de igual 
forma que los anteriores. 

El Locomotiv dirige la comunicacion hacia 
la impresora a traves del canal 8. Por esto, las 
instrucciones que envian la informacion a la 
impresora van seguidas de la expresion del nu- 
mero de canal (#8), siendo el resto identico 
a lo descrito anteriormente. 

El Commodore, se une al anterior para en- 
viar la informacion a la impresora a traves de 
un canal de comunicacion. 

Y el QL, se une a este segundo grupo. Es 
necesario abrir antes un canal de comunica- 
ciones hacia la impresora, y luego se manda 


la informacion. No es el mas comodo, pero 
tampoco esdiffcil. Un poco mas largo, quizd. 

8} Libro de instrucciones 

La documentacion ofrecida con ios IBM ha 
hecho escuela. Perfectamente estructurada. y 
exhaustive, Conociendo el Basic de otro or¬ 
denador, aaaptarse a este es fdcil y muy ra- 
pido. 

El manual de Basic del LOCOMOTIV es bue- 
no sin mas. Se podrian ampliar las explicacio- 
nes en ciertos apartados, pero en otros la in¬ 
formacion ofrecida es mas que suflciente. Qui¬ 
zd se le pueda poner algun reporo a la estruc- 
turacion del mismo, pero esto es cuestion de 
gustos. 

1 El manual de Basic de Commodore, es pe- 
queho. 0 grande, nunca se sabe, dado que 
con PEEK y POKE se puede hacer casi fodo. 
Resuelfa escueto y un poco espartano, y su es- 
tructura es discutible. Se puede mejorar, y mu- 
cho. 

Los MSX ofrecen un buen manual de instruc¬ 
ciones. Muy oien explicado, y con una esiruc- 
tura a la que no se puede poner reparos. Bue¬ 
na nota. 

E! manual ael Spectrum tiene sus pros y sus 
contras. La informacion que ofrece no es ex¬ 
haustive, pero su estructura, sin embargo, es 
muy buena, sobre 'odo para aprender a pro- 
gramar en Basic. Con el manual en la mano 
quizd no se le pueda sacar todo el rendimien- 
to al ordenador, pero desde luego se puede 
partir de cero, y llegar a un nivel mas que 
aceptabie. 


La parte del manual del QL que correspon- 
de al Basic, no estd orientada de la misma ma 
nera que la de su hermano pequeno. Da un 
pequeno repaso a las posibiliaades del orde¬ 
nador, y una escueta informacion de las ins¬ 
trucciones del Basic. La busqueda de una ins¬ 
truccion concreta no resulta fdcil, debido a lo 
peculiar que es su disfribucion. 


Resumen final 

Si bien no hay un estandar de Basic, el mas 
comun es el Microsoft Basic, cuya version mas 
famosa es la usada por el IBM PC. El Apple 
Macintosh lo utiliza, pero aprovecha las par- 
ticularidades de su Hardware y sistema ope¬ 
rative para sacar mas rendimienfo en algunas 
facetas, aunque esto vaya en detrimento de 
otras. 

El Locomotiv Basic de Amstrad, se apro- 
xima muchisimo a este modelo. Desgraciada 
e incomprensiblemente, el punto en el que mas 
se aleja es en el manejo de ficheros, cuando 
resulta que una de sus principales caracteris- 
ticas es incorporar una unidad de disco, y a 
un precio muy bajo. Es una pena aunque es¬ 
to quizd se compensa por la ampliacion efec- 
tuada en los comandos de graficos y sonido. 

E! Basic de los MSX, compatible entre ellos, 
es en realidad otra version del Basic Microsoft, 
por lo que las similitudes tambien son nume- 
rosas, y practicamente las diferencias estdn en 
los rnisrT'O.' puntos que los dichos para el Lo¬ 
comotiv, aunque entre ambos Basic's en e$- 
tos apartados, no exisfa ninguna similitud. 

El Basic del Commodore es mas bien pobre. 
Recurre mucho a rutinas de Firmware, Peeks 
y Pokes, y por el resto, es mas bien modesto. 
Ademas es bastante incomodo de utilizar, aun 
que en cuanto a calidad grafica y sonora es¬ 
te entre los mejores, si no es el mejor. 

Los Basics de Sinclair son tambien bastante 
originales. Aunque no se le pueden negar sus 
poslbilidades, se alejan de cualquier estandar, 
pare constituir una close aparte. 

Para explicarlo todo de estos ocho Basic's 
se necesitarian varias revistas como esta. Pe¬ 
ro esperamos que esta breve revision de ellos, 
les haga darse una idea de las posibilidades 
de todos. Y si su vecina, o su cunada dice que 
el Basic de su ordenador es mejor, con el con- 
tenido de este articulo podra demostrarle que 
no es asi. 
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Test del minorista 


Conteste si o no a ' as siguientes pregdntas: 


1. il* 9^«" c °on r rtS.'‘mafcarln fete.o.n V 
de microinformatica _ NO 


SI' 




SI. 


NO. 




SI 


NO 


n □ 


• Solucidn: Si ha contestado si a todas las preguntas, con- 
siga hacer realidad sus deseos llamando a este tel6fono: 

4297318 



cumplimos 
sus deseos 


San Marcos, 39-4 1 3° 
28004 MADRID 















XI GRAMAS 


Como ya sabes, tu 
Amstrad se puede utilizer 
para un monton de 
cosas, El nuestro nos 
despierta por la 
rnanana, enseha a los 
nines, es una tableta 
para dibujar, cant a para 
el periquito, y nos ayuda 
con el trabajo. Tod a via 
no lo hem os convencido 
que saque los perros a 
paseo, pero tenemos 
esperanzas. El otro dfa 
intentabamos hacer un 
crucigrama en un 
periodica. Hizimos tantos 
errores y tanto teniamos 
que borrar que el 

J oeriodico quedo 
estrozado con el 
crucigrama solo medio 
hecho. 



delante en ingles). Es anagrama. De- 

be ser Amstrad. 

Nuestra tarea es darte dos o mas 
pistas hacia la solucion cuando sea 
posible, y divertirte un poco, que no 
es tarea fdai. Hay una tecla de «ehu- 
letear»: la pulsas y sale la letra que 
buscabas. (Si no sabes nada de in¬ 
gles todavia, sigue para ver todos los 
resultados. Asi empiezas sin dolor a 
aumentar el numero de palabras co 
nectadas con los ordenadores que 
reconoceras.) Un crucigrama nuevo 
solo requiere teclear una (si, una) li- 
nea DATA nueva. El resultado final 
lo puedes pasar a impresora si tienes 
una con modo grafico. Nosotros no 
tenemos pero lo hemos probado en 
la de un amigo y sale muy bonito. 

No hemos oido de otros crucigra- 
mas en ordenador ni en dos idiomas 
a la vez. Puede ser que estos sean los 
primeros. Lo hemos pasado bomba 
preparandolos, esperamos que lo 
paseis bien huciendolos. 

El binario del programa base «xi- 
grama» se prepara una sola vez y 
entonces se le usa para cada cruci¬ 
grama. Al teclear las Ifneas DATA en 
el programa cargador de codigo 
maquina, usa MODE 2. Hay un sim 
pie checksum al final de cada linea: 
un error se senala con «Error en 
xxx» y habra que corregir la linea 
xxx. No hace falta contar espacios, 
uno basta. Las observaciones que si- 
guen al apostrofe [) pueden reem- 
plazarse con un par de asteriscos 
[**]. La linea 1008 pasa el fichero bi¬ 
nario a disco automaticamente. No¬ 


sotros usamos cassette, y cuando sale 

«Press REC and PLAY etc» encontra- 
mos mejor poner una cinta a su prin- 
cipio para grabar el fichero «xigra- 
ma». Asf es facilmente disponible pa¬ 
ra cada crucigrama. 


Instrucciones 


El pequeno programa en Basic es 
el crucigrama de esta semana. Te- 
clea en MODE 1 porque el listado 
mismo esta formateado a 40 colum 
nas, y te ayudara a captar errores. 
Solo la linea 10 es distinta cada vez: 
despues del numero del crucigrama 
vienen letras MAYUSCULAS que re- 
presentan la solucion codificada. Las 
4 ultimas son un sistema sostisficado 
de chequeo que dejaran pasar me- 
nos de 1 error en 50.000. La linea 30 
cargo el programa maestro de codi 
go maquina «xigrama». Entonces si 
usas cassette hay que tener este pre- 
parado. RUN y cuando veas «Press 
PLAY etc...» pulsa una tecla para 
cargar el binario «xigrama». Si ves 
el mensaje «Error»en video inverso, 
pulsa ESC/ESC, edita la linea 10, re- 
bobina «xigrama»,y RUN otra vez. 
En el programa se mueve con las te- 
clas cursores, y la tecla COPY saca 
la letra de la solucion si quieres ayu¬ 
da. Al terminar, «faltan 10» en el 
marcador indicaria que faltan toda¬ 
via diez casitas para rellenar o corre¬ 
gir. 


ntonces pensa- 
mos: jpor que no usamos nuestro fiel 
amigo (el Amstred, no los perros) 
para hacer crucigramas en la pan 
talla? Nosotros somos medio espa- 
noles, medio ingleses, entonces pen- 
samos: gpor que no hacemos un cru¬ 
cigrama tambien medio espahol, me¬ 
dio ingles para ayudar a nuestros 
amigos a aumentar su vocabulario 
ingles y a sus colegas de habla ingle- 
sa aprender un poco de espahol? 

Despues de tanto pensar, descan- 
samos un rato y entonces a trabajar, 
y esto es lo que nos ha saiido. Cada 
pista puede ser o en ingles o en es¬ 
pahol, o una mezcla. Si es espanola 
la pista, es inglesa la solucion y vice- 
versa. Nos divierten mas las pistas 
escondidas, como cuando hay que 
convertirse en Sherlock Holmes el de¬ 
tective incansable para hacerse con 
la solucion. He aqui un ejemplo: 

«Mad Star es la estrella loca de los 
ordenadores (anag).» Estrella es 
STAR, loca es MAD (el adjetivo va 
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^cigramal 
—-’Vertical 


Horizontal 

„ Tn key-in is real crazy etc. 

,9 Arte ingles- fEres ant^°- 

trxzzZ'-”* 

rebotada. 

43 He ' aU9hS T'confundido. 

49 Suma, ipapa com 
57 No sentado y a a 

64 E chars® pore ™ e " W ' I »> no r,e deP««- 

n 

79 Para mas u 


erticai , a de 30. 

3 \ntroducir una me 
5 New driver is toad 

7 Despues la . )S the s i z e 

^0 Coloured or g 

bread. ha(lo en el 

,8 0 prepay ,, 0 . 

- "' fl0 

„ En * <* e “ r ir 
hace pmo P ara 
51 Hacer re mi la- 
57 Poner \uego- 
6 \ Define the top a _ 

















10 DATA * l@LIUL2YK10O@N@K@P@EEZH@KeVQSO@ 
FPVDMQHT KteK©ACBM@@CEG@@F0@PDGJU(#L8MH@@| 
JBQYGK :@©@KRCUXVL* 


20 hmm=HI MEM:MEMORY 5000 
30 LOAD"xi grama” . 8,5000 : CALL &5000 
50 CLOSEIN:MEMORY hmm 


CKUCIGRAMA 



100 DATA 211E50115280015E01EDB011003001C600EDB011001501D6030714 

i 10 DATA EDB0C34D1730.10E67FC35ABBC4E3EAE8FC8B8284A?A7BEA0C60FB5 
120 DATA CFD6EEE9E8FB8E8E80130040010^91018E010108027E0102100918 
130 DATA 005E01000902^0010191002A000016808198AEA9ACA7C4BCB60802 
140 DATA 83F 6H5F9E6ECF2FEC2DEC0CC4D115980CD7018EBCD7FT8C3C110A4 
150 DATA 80214C0ICDC0BB11000021E0FEC3F9BBF3FDJ5FF53E80E2B7 80D60 
il 60 DATA F0164F7AFE08C843CD39BB1518F50F001F010166616C746 X 6E09 59 
170 DATA 1F240168656C70730F031F030220301, F25022030FF 1 F'01 181404C7 
180 DATA 1F0F02435255434 947 52414D41200000FF21002D09473E40BE0607 
190 DATA C9AFR6FABABBCDF4BBCD3881E5(:5FlCDCrRBElCD3881E5C5FT1263 
200 DATA CDD2BBCDDBBBE12318DE235E2356234E2346C9FE0F3811F$D50C74 
210 DATA E6F00F0F470F0FCD5981D113F1F60F470707802176304F060008BB 
220 DATA 09FB0h051AB6771 3CD26B(;i0F7 r '91 ’ E8FF21860 1CDC0BB06130AD9 
210 DATA C511200021F0FEGDC3BB110000212001CDF9BBC110FA01DO030AA9 
240 DAT A 110015CD2717060AC5E511C0FDCDF9BB21F0FF114002CDC3BB0BD8 
250 DATA L1C.1 10EBC982879394A4B7B698DFC956869F37RBA4B5D9r A961065 
260 DATA AL'978185A091981184 AAACa 8C5D082AH889F93DFFDFFFB83D81056 
270 DATA D0DDABBLF9928A869CA6FOF7OCOFDDC6A4BC;bDDFCBCB9FB7AF124C 
280 DATA D6F0S8E1FBD1CD95OAA2A2B48B85958F999681AEASF0F39597 1168 
290 DATA F7EFF9829AF6FCB6FFD1C4DF227F23FEl C8CD548018F62050109B 
300 DATA 5050202060202020701030407070102010701030507010704005F0 
310 DATA 3010607040705070701020404070507050707050701070210D076F 
320 DATA 16CDC1803F03CDDEBBH5CD83163F02ODDFBBCD4C16E1CD19BD0D6F 
530 DATA 031681114175215 1 2D3F810609F5C5D5E5CD4181D11B21015309F2 
340 DATA 193E40BEEB28023E0077E3E5200BCD29BC0FF0110F04CD47BC09B6 
350 DAI A D 1 1B1 B1B1 ElF 1C 1F1 D60127C810OD0 L84FFER09EB18C32200BF0B92 
360 DATA 11A005192202BF2156C92204BF192206BF0691C5CD19BDCB0808A9 
370 DATA 30L62A04BFE5CD26BC220iBF2Af;0BFE5CD26BC22.10BF 18.142A0960 
380 DATA 06BFF5CTj29BC2206BF2A02BFE5CD2yBC2202BFE1D1012400ED0B6C 
390 DATA B0C110C4C997\2B0B8A0C0DR5EBCA8B3BAD8CFD7DEF4F2FBS211D8 
400 DATA 82949 1 A4 AABD * 1 CCF5AR9B 4F ?F0988F988081-'E7FBB88 18A93FF 10D0 
410 DATA A0A3B68H889Er68F87B6RFFElClDBADA5AOB6C7D0D9A2CTFAFA12A6 
420 DATA CAC6CBA9EAF3FCA6819Ar 0FCF6I 2CA('A<9b9F8BA3B5909F829 1 1250 
430 DAT 1 A F5F493ASA3BC. ^2C49D99A°CAD3DCA5Cd■ 6C4C8D8D43E8997931 IDA 
440 DATa B3BAB1 D1-(:DDED51'BF3F39897969BA0A1B8DBCAF4DFF36203081 181 
450 DATA 01760T20005E010300007E029200EC00021801660120005E0103F9 
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4 60 

Data 

470 

DATA 

480 

DATA 

490 

DATA 

500 

DATA 

510 

DATA 

520 

DATA 

530 

DATA 

540 

DATA 

550 

DATA 

560 

DATA 

570 

DATA 

580 

DATA 

590 

DATA 

600 

DATA 

610 

DATA 

620 

DATA 

630 

DATA 

640 

DATA 

650 

DATA 

660 

DATA 

670 

DATA 

680 

DATA 

690 

DATA 

700 

DATA 

710 

DATA 

720 

DATA 


1000 

1001 

1002 

1003 

1006 

1007 

1008 
1010 
2000 
2010 
2020 


0200007E029E00E00080213E01229E16219E0022A116212000058F 
1 10000CD7F 1611 1A0121C000CD7F162.162FF22A1 16215E011106CE 
D8FFCD7F1621BE0011420106141814212000CD921621C2FE22086B 
A116215E01063811C8FFE5D5C5CDC0BB117E02213E01CDF9BB0B86 
C1D1E1 1313 10EAC9CD0D81C8771101 53 19463E02CD96BBCDF’30BD8 
1 6AFC396BBQD7BBBCD 1 BBR30LBFEFCC82 1 C4 1 6F.5D0FE1 020010F.4B 
07FE200600280FFEE028CBE6DFFAFD16FE41D8FE5BD0CD0D810DA0 
C870CD7EBB78CD5ABB79181AD6D0D8FE08D0CB4F2002CBD8040D7A 
1F783802ED444180F8FE51D04F2FFF2CD60930FBC60ACB15070B43 
67C375BB210000D5C51A06081105804FE680AC672930067BAD0922 
6F7AAC67791710EECID1130B78B120DEC911CD012153801A1B0A32 
D649ED6728F82BE25317EB015200EDB8131A21A0154FAF47090A3E 
EB4F0651233E40BE28121A81E61.F4F13ED4486C61AFE5B38FA0A4E 
D61A7710E6110180015300CD27177DB4210B30C2C180CDFFBB0A65 
CD4EBB21A01 BCDC1801 53E40CD08BC( !)BABBCDDBBBCD6E81E 1.0EF0 
CDC1803EC0CD08BCCDA8300600CD19BD10FB11B000CDB280110BC7 
D001CDB280210160CD4515111C30CD7018CD0015CD18BB217 70945 
01110A81010200EDB011F880CD60l8212160CD4515219815CD086F 
C180114030CD7018CD81BB1E00CDCB80CD09BB38FB0E00CDC40BB9 
16CD2C18210030CDC1801EFFC3CB8021018011002D0152001A07FE 
EDA 1E25D1813^8F7FE40E521F680280321F180347EFE3A380B0BBB 
36302B7EFE202002363034E118D811D880216C30227818CD7008CF 
1821C180227818C93E01CDB4BB47EBCDC180EB78C3B4BBAFB60DAA 
23F8E5CD59BCE15E235623E5EB11D201CDC0BBE17ECDDEBB230EA1 
E5210000228F18118002CDF 9BB21FEFF1180FDCDC3BBE135200C10 
E62318C8B5DD67P1E4CA80F3BD7CED4F00AE23FAD1183B3BF50EA8 
ED5 CT DD67F1C35480A9E706A8 


hmm-HIMEM 
h-&5000 1 
MEMORY h 
MODE 2 
d i rec = h : GOSIJB 
SAVE"xigrama" 
MEMORY hmm:END 


PR I NT "pypo rar 
2000 ’ 


10 s eg. 


cargador 


b, ta 1 , 1560 


rritina carya datos con checksum] 


FOR linca=l00 TO 
READ post. iZo$ 


720 STEP 10 


2030 check . sum-VALT -*-Rl GH t'$< post i zo$ . 4 > ) 

2040 FOR puntero=l TO TEN<postizo$) 5 STEP 2 

2050 dummy = VALTDSCpostizoS,puntero.2 >) 

2060 check . suin = check. sum- dummy- 

2070 direc»airec+l 

2080 POKE direc.dummy 

2090 NEXT punter o 

2100 IF check.sum<>0 GOTO 4020 

2110 NEXT 1inea 

2999 RETURN 

4000 * 

4020 PRINT CHR$< 7 ) "Error on 1 inea"l iripa 
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con el ordenador mientras 
la impresora funciona. 


Si tiene un AMSTRAD 
CPC 464, CPC 664 o 
CPC 6128 conectele el 
ANTA 64K.3 y seleccione 
la opeion que necesite: 


64K de Ram 
Disk/Basic 


La memoria Simula el fun 
cionamiento de un dis* 
co con mejor tiempo de 
acceso. 


64K de Memoria 


Para leer y escribir datos 
cadenas y bloques de ca- 
racteres, asi como copiar 
o trasladar pantallas. 


* Software de mane jo con• 
tenido en ROM. 


64K de Buffer de 
Impresora 


Permite seguir trabajando 


DISTRIBUIDO POR LS8, S.A. C/. SANCHEZ PACHECO, 78. 28002 MADRID. TEL. 4139268 

Le esperamos en nuestros stands 9y 10 de la 1. a Feria Amstrad, desde el 23 a! 25 de Mayo 












SINCLAIR STORE 

1R0 


i 




J 


Por la tompra de cualquier Ordenador el equipo completo oficial de Basket es tuyo. 


Como siempre curso gratis 
de informdtica. 

Somos distribuidores oficiales de todas 
las marcas. 

Teclado multifuncion con sonido 
13.200 ptas. 


Joystick+interface T. KEAAPSION 
3.200 ptas. 

Lapiz optico 3.500 ptas. 

Tarjeta de socio club Sinclair Store. 


Ademas entre todos nuestros dientes sorfeamos 10 lofes de 2 entradas para la final del MUNDIAL DE BASKET 86. 


SOMOS PROFESIONALES 


BRAVO MURILLO, 2 

(Glorieta de Quevedo) 

Tel. 446 62 31 - 28015 MAORID 
Aparcamiento GRATUITO Magallanes, 1 


DIEGO DE LEON, 25 

(Esq. Nunez de Balboa) 

Tel. 261 88 01 -28006 MADRID 
Aparcamiento GRATUITO Nunez de Balboa, 114 


FELIPE II, 12 

(Metro Goya) 

Tel. 431 32 33-28 009 MADRID 
Aparcamiento GRATUITO Felipe II 

















